Imports DocumentFormat.OpenXml.Spreadsheet
Imports FineUI
Imports Kimmo
Imports Microsoft.VisualBasic.CompilerServices
Imports System.Collections
Imports System.Collections.Generic
Imports System.ComponentModel
Imports System.Data
Imports System.Data.SqlServerCe
Imports System.Diagnostics
Imports System.Runtime.CompilerServices

''' <summary>
''' This is the beginning of the Project_Profiles business object to handle interaction between the user interface and the database.
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Class clsProjectProfiles
    Public Property ID As Integer = 0
    Public Property ProjectName As String = ""
    Public Property ContactPersonName As String = ""
    Public Property PlannedStart As Nullable (of Date) = Nothing
    Public Property PlannedEnd As Nullable (of Date) = Nothing
    Public Property CurrentImage As String = ""
    Public Property BusinessNeed As String = ""
    Public Property CurrentSituation As String = ""
    Public Property Objectives As String = ""
    Public Property Description As String = ""
    Public Property Deliverables As String = ""
    Public Property GeneralComments As String = ""
    Public Property IsNew As Boolean = False
    Public Property DateFields As String = "PlannedStart,PlannedEnd"
    Public Property FieldsToUpdate As String = "ID,ProjectName,ContactPersonName,PlannedStart,PlannedEnd,CurrentImage,BusinessNeed,CurrentSituation,Objectives,Description,Deliverables,GeneralComments"

''' <summary>
''' The new method of the class to create new Project_Profiles records.
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Sub New()
    MyBase.New()
    Clear()
    IsNew = True
    DateFields = "PlannedStart,PlannedEnd"
    FieldsToUpdate = "ID,ProjectName,ContactPersonName,PlannedStart,PlannedEnd,CurrentImage,BusinessNeed,CurrentSituation,Objectives,Description,Deliverables,GeneralComments"
End Sub

''' <summary>
''' The Clear method clears all properties of the business object to defaults.
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Sub Clear()
    ID = 0
    ProjectName = ""
    ContactPersonName = ""
    PlannedStart = Nothing
    PlannedEnd = Nothing
    CurrentImage = ""
    BusinessNeed = ""
    CurrentSituation = ""
    Objectives = ""
    Description = ""
    Deliverables = ""
    GeneralComments = ""
End Sub

''' <summary>
''' Delete Project_Profiles records specified by a list of ID.
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
    Public Shared Sub Delete(ByRef Records As List(Of String))
        For Each rsStr As String In Records
            SQLCompact.RunQuery("delete from [Project_Profiles] where ID = " & rsStr, True)
        Next
    End Sub


Public Shared Sub DeleteForFile(StrID As String)
SQLCompact.RunQuery("DELETE from [Project_Profiles] where SourceFile = '" & StrID & "';", True)
End Sub

''' <summary>
''' Delete Project_Profiles records meeting a particular field name criteria. In this case, ID
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Shared Sub DeleteByID(ByVal intID As Integer)
    SQLCompact.RunQuery("Delete from [Project_Profiles] where [ID] = " & intID)
End Sub

''' <summary>
''' Delete Project_Profiles records from a list of particular field. In this case, ID
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Shared Sub DeleteByListOfID(ByRef Records As List(Of String))
        For Each intID As String In Records
    SQLCompact.RunQuery("Delete from [Project_Profiles] where [ID] = " & intID)
        Next
End Sub

''' <summary>
''' Delete Project_Profiles records meeting a particular field name criteria. In this case, ProjectName
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Shared Sub DeleteByProjectName(ByVal strProjectName As String)
    SQLCompact.RunQuery("Delete from [Project_Profiles] where [ProjectName] = '" & strProjectName & "'")
End Sub

''' <summary>
''' Delete Project_Profiles records from a list of particular field. In this case, ProjectName
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Shared Sub DeleteByListOfProjectName(ByRef Records As List(Of String))
        For Each strProjectName As String In Records
    SQLCompact.RunQuery("Delete from [Project_Profiles] where [ProjectName] = '" & strProjectName & "'")
        Next
End Sub

''' <summary>
''' Delete Project_Profiles records meeting a particular field name criteria. In this case, ContactPersonName
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Shared Sub DeleteByContactPersonName(ByVal strContactPersonName As String)
    SQLCompact.RunQuery("Delete from [Project_Profiles] where [ContactPersonName] = '" & strContactPersonName & "'")
End Sub

''' <summary>
''' Delete Project_Profiles records from a list of particular field. In this case, ContactPersonName
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Shared Sub DeleteByListOfContactPersonName(ByRef Records As List(Of String))
        For Each strContactPersonName As String In Records
    SQLCompact.RunQuery("Delete from [Project_Profiles] where [ContactPersonName] = '" & strContactPersonName & "'")
        Next
End Sub

''' <summary>
''' Delete Project_Profiles records meeting a particular field name criteria. In this case, PlannedStart
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Shared Sub DeleteByPlannedStart(ByVal datPlannedStart As Nullable (of Date))
    SQLCompact.RunQuery("Delete from [Project_Profiles] where [PlannedStart] = " & datPlannedStart)
End Sub

''' <summary>
''' Delete Project_Profiles records from a list of particular field. In this case, PlannedStart
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Shared Sub DeleteByListOfPlannedStart(ByRef Records As List(Of String))
        For Each datPlannedStart As String In Records
    SQLCompact.RunQuery("Delete from [Project_Profiles] where [PlannedStart] = " & datPlannedStart)
        Next
End Sub

''' <summary>
''' Delete Project_Profiles records meeting a particular field name criteria. In this case, PlannedEnd
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Shared Sub DeleteByPlannedEnd(ByVal datPlannedEnd As Nullable (of Date))
    SQLCompact.RunQuery("Delete from [Project_Profiles] where [PlannedEnd] = " & datPlannedEnd)
End Sub

''' <summary>
''' Delete Project_Profiles records from a list of particular field. In this case, PlannedEnd
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Shared Sub DeleteByListOfPlannedEnd(ByRef Records As List(Of String))
        For Each datPlannedEnd As String In Records
    SQLCompact.RunQuery("Delete from [Project_Profiles] where [PlannedEnd] = " & datPlannedEnd)
        Next
End Sub

''' <summary>
''' Delete Project_Profiles records meeting a particular field name criteria. In this case, CurrentImage
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Shared Sub DeleteByCurrentImage(ByVal strCurrentImage As String)
    SQLCompact.RunQuery("Delete from [Project_Profiles] where [CurrentImage] = '" & strCurrentImage & "'")
End Sub

''' <summary>
''' Delete Project_Profiles records from a list of particular field. In this case, CurrentImage
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Shared Sub DeleteByListOfCurrentImage(ByRef Records As List(Of String))
        For Each strCurrentImage As String In Records
    SQLCompact.RunQuery("Delete from [Project_Profiles] where [CurrentImage] = '" & strCurrentImage & "'")
        Next
End Sub

''' <summary>
''' Delete Project_Profiles records meeting a particular field name criteria. In this case, BusinessNeed
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Shared Sub DeleteByBusinessNeed(ByVal strBusinessNeed As String)
    SQLCompact.RunQuery("Delete from [Project_Profiles] where [BusinessNeed] = '" & strBusinessNeed & "'")
End Sub

''' <summary>
''' Delete Project_Profiles records from a list of particular field. In this case, BusinessNeed
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Shared Sub DeleteByListOfBusinessNeed(ByRef Records As List(Of String))
        For Each strBusinessNeed As String In Records
    SQLCompact.RunQuery("Delete from [Project_Profiles] where [BusinessNeed] = '" & strBusinessNeed & "'")
        Next
End Sub

''' <summary>
''' Delete Project_Profiles records meeting a particular field name criteria. In this case, CurrentSituation
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Shared Sub DeleteByCurrentSituation(ByVal strCurrentSituation As String)
    SQLCompact.RunQuery("Delete from [Project_Profiles] where [CurrentSituation] = '" & strCurrentSituation & "'")
End Sub

''' <summary>
''' Delete Project_Profiles records from a list of particular field. In this case, CurrentSituation
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Shared Sub DeleteByListOfCurrentSituation(ByRef Records As List(Of String))
        For Each strCurrentSituation As String In Records
    SQLCompact.RunQuery("Delete from [Project_Profiles] where [CurrentSituation] = '" & strCurrentSituation & "'")
        Next
End Sub

''' <summary>
''' Delete Project_Profiles records meeting a particular field name criteria. In this case, Objectives
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Shared Sub DeleteByObjectives(ByVal strObjectives As String)
    SQLCompact.RunQuery("Delete from [Project_Profiles] where [Objectives] = '" & strObjectives & "'")
End Sub

''' <summary>
''' Delete Project_Profiles records from a list of particular field. In this case, Objectives
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Shared Sub DeleteByListOfObjectives(ByRef Records As List(Of String))
        For Each strObjectives As String In Records
    SQLCompact.RunQuery("Delete from [Project_Profiles] where [Objectives] = '" & strObjectives & "'")
        Next
End Sub

''' <summary>
''' Delete Project_Profiles records meeting a particular field name criteria. In this case, Description
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Shared Sub DeleteByDescription(ByVal strDescription As String)
    SQLCompact.RunQuery("Delete from [Project_Profiles] where [Description] = '" & strDescription & "'")
End Sub

''' <summary>
''' Delete Project_Profiles records from a list of particular field. In this case, Description
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Shared Sub DeleteByListOfDescription(ByRef Records As List(Of String))
        For Each strDescription As String In Records
    SQLCompact.RunQuery("Delete from [Project_Profiles] where [Description] = '" & strDescription & "'")
        Next
End Sub

''' <summary>
''' Delete Project_Profiles records meeting a particular field name criteria. In this case, Deliverables
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Shared Sub DeleteByDeliverables(ByVal strDeliverables As String)
    SQLCompact.RunQuery("Delete from [Project_Profiles] where [Deliverables] = '" & strDeliverables & "'")
End Sub

''' <summary>
''' Delete Project_Profiles records from a list of particular field. In this case, Deliverables
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Shared Sub DeleteByListOfDeliverables(ByRef Records As List(Of String))
        For Each strDeliverables As String In Records
    SQLCompact.RunQuery("Delete from [Project_Profiles] where [Deliverables] = '" & strDeliverables & "'")
        Next
End Sub

''' <summary>
''' Delete Project_Profiles records meeting a particular field name criteria. In this case, GeneralComments
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Shared Sub DeleteByGeneralComments(ByVal strGeneralComments As String)
    SQLCompact.RunQuery("Delete from [Project_Profiles] where [GeneralComments] = '" & strGeneralComments & "'")
End Sub

''' <summary>
''' Delete Project_Profiles records from a list of particular field. In this case, GeneralComments
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Shared Sub DeleteByListOfGeneralComments(ByRef Records As List(Of String))
        For Each strGeneralComments As String In Records
    SQLCompact.RunQuery("Delete from [Project_Profiles] where [GeneralComments] = '" & strGeneralComments & "'")
        Next
End Sub

''' <summary>
''' Return a particular field based on another field. In this case return Project_Profiles.ID based on Project_Profiles.ID
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Shared Function IDByID(ByVal intID As Integer) As Integer
    Dim mv As String = SQLCompact.RecordReadToMv("Project_Profiles", "ID", intID, "ID", ";", "Integer")
    mv = clsDL.MvField(mv, 1, ";")
    Return Val(mv)
End Function


''' <summary>
''' Return a particular field based on another field. In this case return Project_Profiles.ID based on Project_Profiles.ProjectName
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Shared Function IDByProjectName(ByVal strProjectName As String) As Integer
    Dim mv As String = SQLCompact.RecordReadToMv("Project_Profiles", "ProjectName", strProjectName, "ID", ";", "String")
    mv = clsDL.MvField(mv, 1, ";")
    Return Val(mv)
End Function


''' <summary>
''' Return a particular field based on another field. In this case return Project_Profiles.ProjectName based on Project_Profiles.ID
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Shared Function ProjectNameByID(ByVal intID As Integer) As String
    Dim mv As String = SQLCompact.RecordReadToMv("Project_Profiles", "ID", intID, "ProjectName", ";", "Integer")
    mv = clsDL.MvField(mv, 1, ";")
    Return mv
End Function


''' <summary>
''' Return a particular field based on another field. In this case return Project_Profiles.ID based on Project_Profiles.ContactPersonName
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Shared Function IDByContactPersonName(ByVal strContactPersonName As String) As Integer
    Dim mv As String = SQLCompact.RecordReadToMv("Project_Profiles", "ContactPersonName", strContactPersonName, "ID", ";", "String")
    mv = clsDL.MvField(mv, 1, ";")
    Return Val(mv)
End Function


''' <summary>
''' Return a particular field based on another field. In this case return Project_Profiles.ContactPersonName based on Project_Profiles.ID
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Shared Function ContactPersonNameByID(ByVal intID As Integer) As String
    Dim mv As String = SQLCompact.RecordReadToMv("Project_Profiles", "ID", intID, "ContactPersonName", ";", "Integer")
    mv = clsDL.MvField(mv, 1, ";")
    Return mv
End Function


''' <summary>
''' Return a particular field based on another field. In this case return Project_Profiles.ID based on Project_Profiles.PlannedStart
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Shared Function IDByPlannedStart(ByVal datPlannedStart As Nullable (of Date)) As Integer
    Dim mv As String = SQLCompact.RecordReadToMv("Project_Profiles", "PlannedStart", datPlannedStart, "ID", ";", "Nullable (of Date)")
    mv = clsDL.MvField(mv, 1, ";")
    Return Val(mv)
End Function


''' <summary>
''' Return a particular field based on another field. In this case return Project_Profiles.PlannedStart based on Project_Profiles.ID
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Shared Function PlannedStartByID(ByVal intID As Integer) As Nullable (of Date)
    Dim mv As String = SQLCompact.RecordReadToMv("Project_Profiles", "ID", intID, "PlannedStart", ";", "Integer")
    mv = clsDL.MvField(mv, 1, ";")
    Return IIf((IsDate(mv) = True), CDate(mv), Nothing)
End Function


''' <summary>
''' Return a particular field based on another field. In this case return Project_Profiles.ID based on Project_Profiles.PlannedEnd
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Shared Function IDByPlannedEnd(ByVal datPlannedEnd As Nullable (of Date)) As Integer
    Dim mv As String = SQLCompact.RecordReadToMv("Project_Profiles", "PlannedEnd", datPlannedEnd, "ID", ";", "Nullable (of Date)")
    mv = clsDL.MvField(mv, 1, ";")
    Return Val(mv)
End Function


''' <summary>
''' Return a particular field based on another field. In this case return Project_Profiles.PlannedEnd based on Project_Profiles.ID
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Shared Function PlannedEndByID(ByVal intID As Integer) As Nullable (of Date)
    Dim mv As String = SQLCompact.RecordReadToMv("Project_Profiles", "ID", intID, "PlannedEnd", ";", "Integer")
    mv = clsDL.MvField(mv, 1, ";")
    Return IIf((IsDate(mv) = True), CDate(mv), Nothing)
End Function


''' <summary>
''' Return a particular field based on another field. In this case return Project_Profiles.ID based on Project_Profiles.CurrentImage
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Shared Function IDByCurrentImage(ByVal strCurrentImage As String) As Integer
    Dim mv As String = SQLCompact.RecordReadToMv("Project_Profiles", "CurrentImage", strCurrentImage, "ID", ";", "String")
    mv = clsDL.MvField(mv, 1, ";")
    Return Val(mv)
End Function


''' <summary>
''' Return a particular field based on another field. In this case return Project_Profiles.CurrentImage based on Project_Profiles.ID
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Shared Function CurrentImageByID(ByVal intID As Integer) As String
    Dim mv As String = SQLCompact.RecordReadToMv("Project_Profiles", "ID", intID, "CurrentImage", ";", "Integer")
    mv = clsDL.MvField(mv, 1, ";")
    Return mv
End Function


''' <summary>
''' Return a particular field based on another field. In this case return Project_Profiles.ID based on Project_Profiles.BusinessNeed
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Shared Function IDByBusinessNeed(ByVal strBusinessNeed As String) As Integer
    Dim mv As String = SQLCompact.RecordReadToMv("Project_Profiles", "BusinessNeed", strBusinessNeed, "ID", ";", "String")
    mv = clsDL.MvField(mv, 1, ";")
    Return Val(mv)
End Function


''' <summary>
''' Return a particular field based on another field. In this case return Project_Profiles.BusinessNeed based on Project_Profiles.ID
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Shared Function BusinessNeedByID(ByVal intID As Integer) As String
    Dim mv As String = SQLCompact.RecordReadToMv("Project_Profiles", "ID", intID, "BusinessNeed", ";", "Integer")
    mv = clsDL.MvField(mv, 1, ";")
    Return mv
End Function


''' <summary>
''' Return a particular field based on another field. In this case return Project_Profiles.ID based on Project_Profiles.CurrentSituation
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Shared Function IDByCurrentSituation(ByVal strCurrentSituation As String) As Integer
    Dim mv As String = SQLCompact.RecordReadToMv("Project_Profiles", "CurrentSituation", strCurrentSituation, "ID", ";", "String")
    mv = clsDL.MvField(mv, 1, ";")
    Return Val(mv)
End Function


''' <summary>
''' Return a particular field based on another field. In this case return Project_Profiles.CurrentSituation based on Project_Profiles.ID
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Shared Function CurrentSituationByID(ByVal intID As Integer) As String
    Dim mv As String = SQLCompact.RecordReadToMv("Project_Profiles", "ID", intID, "CurrentSituation", ";", "Integer")
    mv = clsDL.MvField(mv, 1, ";")
    Return mv
End Function


''' <summary>
''' Return a particular field based on another field. In this case return Project_Profiles.ID based on Project_Profiles.Objectives
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Shared Function IDByObjectives(ByVal strObjectives As String) As Integer
    Dim mv As String = SQLCompact.RecordReadToMv("Project_Profiles", "Objectives", strObjectives, "ID", ";", "String")
    mv = clsDL.MvField(mv, 1, ";")
    Return Val(mv)
End Function


''' <summary>
''' Return a particular field based on another field. In this case return Project_Profiles.Objectives based on Project_Profiles.ID
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Shared Function ObjectivesByID(ByVal intID As Integer) As String
    Dim mv As String = SQLCompact.RecordReadToMv("Project_Profiles", "ID", intID, "Objectives", ";", "Integer")
    mv = clsDL.MvField(mv, 1, ";")
    Return mv
End Function


''' <summary>
''' Return a particular field based on another field. In this case return Project_Profiles.ID based on Project_Profiles.Description
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Shared Function IDByDescription(ByVal strDescription As String) As Integer
    Dim mv As String = SQLCompact.RecordReadToMv("Project_Profiles", "Description", strDescription, "ID", ";", "String")
    mv = clsDL.MvField(mv, 1, ";")
    Return Val(mv)
End Function


''' <summary>
''' Return a particular field based on another field. In this case return Project_Profiles.Description based on Project_Profiles.ID
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Shared Function DescriptionByID(ByVal intID As Integer) As String
    Dim mv As String = SQLCompact.RecordReadToMv("Project_Profiles", "ID", intID, "Description", ";", "Integer")
    mv = clsDL.MvField(mv, 1, ";")
    Return mv
End Function


''' <summary>
''' Return a particular field based on another field. In this case return Project_Profiles.ID based on Project_Profiles.Deliverables
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Shared Function IDByDeliverables(ByVal strDeliverables As String) As Integer
    Dim mv As String = SQLCompact.RecordReadToMv("Project_Profiles", "Deliverables", strDeliverables, "ID", ";", "String")
    mv = clsDL.MvField(mv, 1, ";")
    Return Val(mv)
End Function


''' <summary>
''' Return a particular field based on another field. In this case return Project_Profiles.Deliverables based on Project_Profiles.ID
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Shared Function DeliverablesByID(ByVal intID As Integer) As String
    Dim mv As String = SQLCompact.RecordReadToMv("Project_Profiles", "ID", intID, "Deliverables", ";", "Integer")
    mv = clsDL.MvField(mv, 1, ";")
    Return mv
End Function


''' <summary>
''' Return a particular field based on another field. In this case return Project_Profiles.ID based on Project_Profiles.GeneralComments
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Shared Function IDByGeneralComments(ByVal strGeneralComments As String) As Integer
    Dim mv As String = SQLCompact.RecordReadToMv("Project_Profiles", "GeneralComments", strGeneralComments, "ID", ";", "String")
    mv = clsDL.MvField(mv, 1, ";")
    Return Val(mv)
End Function


''' <summary>
''' Return a particular field based on another field. In this case return Project_Profiles.GeneralComments based on Project_Profiles.ID
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Shared Function GeneralCommentsByID(ByVal intID As Integer) As String
    Dim mv As String = SQLCompact.RecordReadToMv("Project_Profiles", "ID", intID, "GeneralComments", ";", "Integer")
    mv = clsDL.MvField(mv, 1, ";")
    Return mv
End Function


''' <summary>
''' Return a particular field based on another field. In this case return Project_Profiles.ProjectName based on Project_Profiles.ProjectName
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Shared Function ProjectNameByProjectName(ByVal strProjectName As String) As String
    Dim mv As String = SQLCompact.RecordReadToMv("Project_Profiles", "ProjectName", strProjectName, "ProjectName", ";", "String")
    mv = clsDL.MvField(mv, 1, ";")
    Return mv
End Function


''' <summary>
''' Return a particular field based on another field. In this case return Project_Profiles.ProjectName based on Project_Profiles.ContactPersonName
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Shared Function ProjectNameByContactPersonName(ByVal strContactPersonName As String) As String
    Dim mv As String = SQLCompact.RecordReadToMv("Project_Profiles", "ContactPersonName", strContactPersonName, "ProjectName", ";", "String")
    mv = clsDL.MvField(mv, 1, ";")
    Return mv
End Function


''' <summary>
''' Return a particular field based on another field. In this case return Project_Profiles.ContactPersonName based on Project_Profiles.ProjectName
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Shared Function ContactPersonNameByProjectName(ByVal strProjectName As String) As String
    Dim mv As String = SQLCompact.RecordReadToMv("Project_Profiles", "ProjectName", strProjectName, "ContactPersonName", ";", "String")
    mv = clsDL.MvField(mv, 1, ";")
    Return mv
End Function


''' <summary>
''' Return a particular field based on another field. In this case return Project_Profiles.ProjectName based on Project_Profiles.PlannedStart
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Shared Function ProjectNameByPlannedStart(ByVal datPlannedStart As Nullable (of Date)) As String
    Dim mv As String = SQLCompact.RecordReadToMv("Project_Profiles", "PlannedStart", datPlannedStart, "ProjectName", ";", "Nullable (of Date)")
    mv = clsDL.MvField(mv, 1, ";")
    Return mv
End Function


''' <summary>
''' Return a particular field based on another field. In this case return Project_Profiles.PlannedStart based on Project_Profiles.ProjectName
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Shared Function PlannedStartByProjectName(ByVal strProjectName As String) As Nullable (of Date)
    Dim mv As String = SQLCompact.RecordReadToMv("Project_Profiles", "ProjectName", strProjectName, "PlannedStart", ";", "String")
    mv = clsDL.MvField(mv, 1, ";")
    Return IIf((IsDate(mv) = True), CDate(mv), Nothing)
End Function


''' <summary>
''' Return a particular field based on another field. In this case return Project_Profiles.ProjectName based on Project_Profiles.PlannedEnd
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Shared Function ProjectNameByPlannedEnd(ByVal datPlannedEnd As Nullable (of Date)) As String
    Dim mv As String = SQLCompact.RecordReadToMv("Project_Profiles", "PlannedEnd", datPlannedEnd, "ProjectName", ";", "Nullable (of Date)")
    mv = clsDL.MvField(mv, 1, ";")
    Return mv
End Function


''' <summary>
''' Return a particular field based on another field. In this case return Project_Profiles.PlannedEnd based on Project_Profiles.ProjectName
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Shared Function PlannedEndByProjectName(ByVal strProjectName As String) As Nullable (of Date)
    Dim mv As String = SQLCompact.RecordReadToMv("Project_Profiles", "ProjectName", strProjectName, "PlannedEnd", ";", "String")
    mv = clsDL.MvField(mv, 1, ";")
    Return IIf((IsDate(mv) = True), CDate(mv), Nothing)
End Function


''' <summary>
''' Return a particular field based on another field. In this case return Project_Profiles.ProjectName based on Project_Profiles.CurrentImage
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Shared Function ProjectNameByCurrentImage(ByVal strCurrentImage As String) As String
    Dim mv As String = SQLCompact.RecordReadToMv("Project_Profiles", "CurrentImage", strCurrentImage, "ProjectName", ";", "String")
    mv = clsDL.MvField(mv, 1, ";")
    Return mv
End Function


''' <summary>
''' Return a particular field based on another field. In this case return Project_Profiles.CurrentImage based on Project_Profiles.ProjectName
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Shared Function CurrentImageByProjectName(ByVal strProjectName As String) As String
    Dim mv As String = SQLCompact.RecordReadToMv("Project_Profiles", "ProjectName", strProjectName, "CurrentImage", ";", "String")
    mv = clsDL.MvField(mv, 1, ";")
    Return mv
End Function


''' <summary>
''' Return a particular field based on another field. In this case return Project_Profiles.ProjectName based on Project_Profiles.BusinessNeed
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Shared Function ProjectNameByBusinessNeed(ByVal strBusinessNeed As String) As String
    Dim mv As String = SQLCompact.RecordReadToMv("Project_Profiles", "BusinessNeed", strBusinessNeed, "ProjectName", ";", "String")
    mv = clsDL.MvField(mv, 1, ";")
    Return mv
End Function


''' <summary>
''' Return a particular field based on another field. In this case return Project_Profiles.BusinessNeed based on Project_Profiles.ProjectName
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Shared Function BusinessNeedByProjectName(ByVal strProjectName As String) As String
    Dim mv As String = SQLCompact.RecordReadToMv("Project_Profiles", "ProjectName", strProjectName, "BusinessNeed", ";", "String")
    mv = clsDL.MvField(mv, 1, ";")
    Return mv
End Function


''' <summary>
''' Return a particular field based on another field. In this case return Project_Profiles.ProjectName based on Project_Profiles.CurrentSituation
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Shared Function ProjectNameByCurrentSituation(ByVal strCurrentSituation As String) As String
    Dim mv As String = SQLCompact.RecordReadToMv("Project_Profiles", "CurrentSituation", strCurrentSituation, "ProjectName", ";", "String")
    mv = clsDL.MvField(mv, 1, ";")
    Return mv
End Function


''' <summary>
''' Return a particular field based on another field. In this case return Project_Profiles.CurrentSituation based on Project_Profiles.ProjectName
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Shared Function CurrentSituationByProjectName(ByVal strProjectName As String) As String
    Dim mv As String = SQLCompact.RecordReadToMv("Project_Profiles", "ProjectName", strProjectName, "CurrentSituation", ";", "String")
    mv = clsDL.MvField(mv, 1, ";")
    Return mv
End Function


''' <summary>
''' Return a particular field based on another field. In this case return Project_Profiles.ProjectName based on Project_Profiles.Objectives
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Shared Function ProjectNameByObjectives(ByVal strObjectives As String) As String
    Dim mv As String = SQLCompact.RecordReadToMv("Project_Profiles", "Objectives", strObjectives, "ProjectName", ";", "String")
    mv = clsDL.MvField(mv, 1, ";")
    Return mv
End Function


''' <summary>
''' Return a particular field based on another field. In this case return Project_Profiles.Objectives based on Project_Profiles.ProjectName
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Shared Function ObjectivesByProjectName(ByVal strProjectName As String) As String
    Dim mv As String = SQLCompact.RecordReadToMv("Project_Profiles", "ProjectName", strProjectName, "Objectives", ";", "String")
    mv = clsDL.MvField(mv, 1, ";")
    Return mv
End Function


''' <summary>
''' Return a particular field based on another field. In this case return Project_Profiles.ProjectName based on Project_Profiles.Description
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Shared Function ProjectNameByDescription(ByVal strDescription As String) As String
    Dim mv As String = SQLCompact.RecordReadToMv("Project_Profiles", "Description", strDescription, "ProjectName", ";", "String")
    mv = clsDL.MvField(mv, 1, ";")
    Return mv
End Function


''' <summary>
''' Return a particular field based on another field. In this case return Project_Profiles.Description based on Project_Profiles.ProjectName
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Shared Function DescriptionByProjectName(ByVal strProjectName As String) As String
    Dim mv As String = SQLCompact.RecordReadToMv("Project_Profiles", "ProjectName", strProjectName, "Description", ";", "String")
    mv = clsDL.MvField(mv, 1, ";")
    Return mv
End Function


''' <summary>
''' Return a particular field based on another field. In this case return Project_Profiles.ProjectName based on Project_Profiles.Deliverables
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Shared Function ProjectNameByDeliverables(ByVal strDeliverables As String) As String
    Dim mv As String = SQLCompact.RecordReadToMv("Project_Profiles", "Deliverables", strDeliverables, "ProjectName", ";", "String")
    mv = clsDL.MvField(mv, 1, ";")
    Return mv
End Function


''' <summary>
''' Return a particular field based on another field. In this case return Project_Profiles.Deliverables based on Project_Profiles.ProjectName
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Shared Function DeliverablesByProjectName(ByVal strProjectName As String) As String
    Dim mv As String = SQLCompact.RecordReadToMv("Project_Profiles", "ProjectName", strProjectName, "Deliverables", ";", "String")
    mv = clsDL.MvField(mv, 1, ";")
    Return mv
End Function


''' <summary>
''' Return a particular field based on another field. In this case return Project_Profiles.ProjectName based on Project_Profiles.GeneralComments
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Shared Function ProjectNameByGeneralComments(ByVal strGeneralComments As String) As String
    Dim mv As String = SQLCompact.RecordReadToMv("Project_Profiles", "GeneralComments", strGeneralComments, "ProjectName", ";", "String")
    mv = clsDL.MvField(mv, 1, ";")
    Return mv
End Function


''' <summary>
''' Return a particular field based on another field. In this case return Project_Profiles.GeneralComments based on Project_Profiles.ProjectName
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Shared Function GeneralCommentsByProjectName(ByVal strProjectName As String) As String
    Dim mv As String = SQLCompact.RecordReadToMv("Project_Profiles", "ProjectName", strProjectName, "GeneralComments", ";", "String")
    mv = clsDL.MvField(mv, 1, ";")
    Return mv
End Function


''' <summary>
''' Return a particular field based on another field. In this case return Project_Profiles.ContactPersonName based on Project_Profiles.ContactPersonName
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Shared Function ContactPersonNameByContactPersonName(ByVal strContactPersonName As String) As String
    Dim mv As String = SQLCompact.RecordReadToMv("Project_Profiles", "ContactPersonName", strContactPersonName, "ContactPersonName", ";", "String")
    mv = clsDL.MvField(mv, 1, ";")
    Return mv
End Function


''' <summary>
''' Return a particular field based on another field. In this case return Project_Profiles.ContactPersonName based on Project_Profiles.PlannedStart
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Shared Function ContactPersonNameByPlannedStart(ByVal datPlannedStart As Nullable (of Date)) As String
    Dim mv As String = SQLCompact.RecordReadToMv("Project_Profiles", "PlannedStart", datPlannedStart, "ContactPersonName", ";", "Nullable (of Date)")
    mv = clsDL.MvField(mv, 1, ";")
    Return mv
End Function


''' <summary>
''' Return a particular field based on another field. In this case return Project_Profiles.PlannedStart based on Project_Profiles.ContactPersonName
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Shared Function PlannedStartByContactPersonName(ByVal strContactPersonName As String) As Nullable (of Date)
    Dim mv As String = SQLCompact.RecordReadToMv("Project_Profiles", "ContactPersonName", strContactPersonName, "PlannedStart", ";", "String")
    mv = clsDL.MvField(mv, 1, ";")
    Return IIf((IsDate(mv) = True), CDate(mv), Nothing)
End Function


''' <summary>
''' Return a particular field based on another field. In this case return Project_Profiles.ContactPersonName based on Project_Profiles.PlannedEnd
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Shared Function ContactPersonNameByPlannedEnd(ByVal datPlannedEnd As Nullable (of Date)) As String
    Dim mv As String = SQLCompact.RecordReadToMv("Project_Profiles", "PlannedEnd", datPlannedEnd, "ContactPersonName", ";", "Nullable (of Date)")
    mv = clsDL.MvField(mv, 1, ";")
    Return mv
End Function


''' <summary>
''' Return a particular field based on another field. In this case return Project_Profiles.PlannedEnd based on Project_Profiles.ContactPersonName
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Shared Function PlannedEndByContactPersonName(ByVal strContactPersonName As String) As Nullable (of Date)
    Dim mv As String = SQLCompact.RecordReadToMv("Project_Profiles", "ContactPersonName", strContactPersonName, "PlannedEnd", ";", "String")
    mv = clsDL.MvField(mv, 1, ";")
    Return IIf((IsDate(mv) = True), CDate(mv), Nothing)
End Function


''' <summary>
''' Return a particular field based on another field. In this case return Project_Profiles.ContactPersonName based on Project_Profiles.CurrentImage
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Shared Function ContactPersonNameByCurrentImage(ByVal strCurrentImage As String) As String
    Dim mv As String = SQLCompact.RecordReadToMv("Project_Profiles", "CurrentImage", strCurrentImage, "ContactPersonName", ";", "String")
    mv = clsDL.MvField(mv, 1, ";")
    Return mv
End Function


''' <summary>
''' Return a particular field based on another field. In this case return Project_Profiles.CurrentImage based on Project_Profiles.ContactPersonName
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Shared Function CurrentImageByContactPersonName(ByVal strContactPersonName As String) As String
    Dim mv As String = SQLCompact.RecordReadToMv("Project_Profiles", "ContactPersonName", strContactPersonName, "CurrentImage", ";", "String")
    mv = clsDL.MvField(mv, 1, ";")
    Return mv
End Function


''' <summary>
''' Return a particular field based on another field. In this case return Project_Profiles.ContactPersonName based on Project_Profiles.BusinessNeed
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Shared Function ContactPersonNameByBusinessNeed(ByVal strBusinessNeed As String) As String
    Dim mv As String = SQLCompact.RecordReadToMv("Project_Profiles", "BusinessNeed", strBusinessNeed, "ContactPersonName", ";", "String")
    mv = clsDL.MvField(mv, 1, ";")
    Return mv
End Function


''' <summary>
''' Return a particular field based on another field. In this case return Project_Profiles.BusinessNeed based on Project_Profiles.ContactPersonName
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Shared Function BusinessNeedByContactPersonName(ByVal strContactPersonName As String) As String
    Dim mv As String = SQLCompact.RecordReadToMv("Project_Profiles", "ContactPersonName", strContactPersonName, "BusinessNeed", ";", "String")
    mv = clsDL.MvField(mv, 1, ";")
    Return mv
End Function


''' <summary>
''' Return a particular field based on another field. In this case return Project_Profiles.ContactPersonName based on Project_Profiles.CurrentSituation
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Shared Function ContactPersonNameByCurrentSituation(ByVal strCurrentSituation As String) As String
    Dim mv As String = SQLCompact.RecordReadToMv("Project_Profiles", "CurrentSituation", strCurrentSituation, "ContactPersonName", ";", "String")
    mv = clsDL.MvField(mv, 1, ";")
    Return mv
End Function


''' <summary>
''' Return a particular field based on another field. In this case return Project_Profiles.CurrentSituation based on Project_Profiles.ContactPersonName
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Shared Function CurrentSituationByContactPersonName(ByVal strContactPersonName As String) As String
    Dim mv As String = SQLCompact.RecordReadToMv("Project_Profiles", "ContactPersonName", strContactPersonName, "CurrentSituation", ";", "String")
    mv = clsDL.MvField(mv, 1, ";")
    Return mv
End Function


''' <summary>
''' Return a particular field based on another field. In this case return Project_Profiles.ContactPersonName based on Project_Profiles.Objectives
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Shared Function ContactPersonNameByObjectives(ByVal strObjectives As String) As String
    Dim mv As String = SQLCompact.RecordReadToMv("Project_Profiles", "Objectives", strObjectives, "ContactPersonName", ";", "String")
    mv = clsDL.MvField(mv, 1, ";")
    Return mv
End Function


''' <summary>
''' Return a particular field based on another field. In this case return Project_Profiles.Objectives based on Project_Profiles.ContactPersonName
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Shared Function ObjectivesByContactPersonName(ByVal strContactPersonName As String) As String
    Dim mv As String = SQLCompact.RecordReadToMv("Project_Profiles", "ContactPersonName", strContactPersonName, "Objectives", ";", "String")
    mv = clsDL.MvField(mv, 1, ";")
    Return mv
End Function


''' <summary>
''' Return a particular field based on another field. In this case return Project_Profiles.ContactPersonName based on Project_Profiles.Description
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Shared Function ContactPersonNameByDescription(ByVal strDescription As String) As String
    Dim mv As String = SQLCompact.RecordReadToMv("Project_Profiles", "Description", strDescription, "ContactPersonName", ";", "String")
    mv = clsDL.MvField(mv, 1, ";")
    Return mv
End Function


''' <summary>
''' Return a particular field based on another field. In this case return Project_Profiles.Description based on Project_Profiles.ContactPersonName
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Shared Function DescriptionByContactPersonName(ByVal strContactPersonName As String) As String
    Dim mv As String = SQLCompact.RecordReadToMv("Project_Profiles", "ContactPersonName", strContactPersonName, "Description", ";", "String")
    mv = clsDL.MvField(mv, 1, ";")
    Return mv
End Function


''' <summary>
''' Return a particular field based on another field. In this case return Project_Profiles.ContactPersonName based on Project_Profiles.Deliverables
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Shared Function ContactPersonNameByDeliverables(ByVal strDeliverables As String) As String
    Dim mv As String = SQLCompact.RecordReadToMv("Project_Profiles", "Deliverables", strDeliverables, "ContactPersonName", ";", "String")
    mv = clsDL.MvField(mv, 1, ";")
    Return mv
End Function


''' <summary>
''' Return a particular field based on another field. In this case return Project_Profiles.Deliverables based on Project_Profiles.ContactPersonName
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Shared Function DeliverablesByContactPersonName(ByVal strContactPersonName As String) As String
    Dim mv As String = SQLCompact.RecordReadToMv("Project_Profiles", "ContactPersonName", strContactPersonName, "Deliverables", ";", "String")
    mv = clsDL.MvField(mv, 1, ";")
    Return mv
End Function


''' <summary>
''' Return a particular field based on another field. In this case return Project_Profiles.ContactPersonName based on Project_Profiles.GeneralComments
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Shared Function ContactPersonNameByGeneralComments(ByVal strGeneralComments As String) As String
    Dim mv As String = SQLCompact.RecordReadToMv("Project_Profiles", "GeneralComments", strGeneralComments, "ContactPersonName", ";", "String")
    mv = clsDL.MvField(mv, 1, ";")
    Return mv
End Function


''' <summary>
''' Return a particular field based on another field. In this case return Project_Profiles.GeneralComments based on Project_Profiles.ContactPersonName
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Shared Function GeneralCommentsByContactPersonName(ByVal strContactPersonName As String) As String
    Dim mv As String = SQLCompact.RecordReadToMv("Project_Profiles", "ContactPersonName", strContactPersonName, "GeneralComments", ";", "String")
    mv = clsDL.MvField(mv, 1, ";")
    Return mv
End Function


''' <summary>
''' Return a particular field based on another field. In this case return Project_Profiles.PlannedStart based on Project_Profiles.PlannedStart
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Shared Function PlannedStartByPlannedStart(ByVal datPlannedStart As Nullable (of Date)) As Nullable (of Date)
    Dim mv As String = SQLCompact.RecordReadToMv("Project_Profiles", "PlannedStart", datPlannedStart, "PlannedStart", ";", "Nullable (of Date)")
    mv = clsDL.MvField(mv, 1, ";")
    Return IIf((IsDate(mv) = True), CDate(mv), Nothing)
End Function


''' <summary>
''' Return a particular field based on another field. In this case return Project_Profiles.PlannedStart based on Project_Profiles.PlannedEnd
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Shared Function PlannedStartByPlannedEnd(ByVal datPlannedEnd As Nullable (of Date)) As Nullable (of Date)
    Dim mv As String = SQLCompact.RecordReadToMv("Project_Profiles", "PlannedEnd", datPlannedEnd, "PlannedStart", ";", "Nullable (of Date)")
    mv = clsDL.MvField(mv, 1, ";")
    Return IIf((IsDate(mv) = True), CDate(mv), Nothing)
End Function


''' <summary>
''' Return a particular field based on another field. In this case return Project_Profiles.PlannedEnd based on Project_Profiles.PlannedStart
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Shared Function PlannedEndByPlannedStart(ByVal datPlannedStart As Nullable (of Date)) As Nullable (of Date)
    Dim mv As String = SQLCompact.RecordReadToMv("Project_Profiles", "PlannedStart", datPlannedStart, "PlannedEnd", ";", "Nullable (of Date)")
    mv = clsDL.MvField(mv, 1, ";")
    Return IIf((IsDate(mv) = True), CDate(mv), Nothing)
End Function


''' <summary>
''' Return a particular field based on another field. In this case return Project_Profiles.PlannedStart based on Project_Profiles.CurrentImage
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Shared Function PlannedStartByCurrentImage(ByVal strCurrentImage As String) As Nullable (of Date)
    Dim mv As String = SQLCompact.RecordReadToMv("Project_Profiles", "CurrentImage", strCurrentImage, "PlannedStart", ";", "String")
    mv = clsDL.MvField(mv, 1, ";")
    Return IIf((IsDate(mv) = True), CDate(mv), Nothing)
End Function


''' <summary>
''' Return a particular field based on another field. In this case return Project_Profiles.CurrentImage based on Project_Profiles.PlannedStart
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Shared Function CurrentImageByPlannedStart(ByVal datPlannedStart As Nullable (of Date)) As String
    Dim mv As String = SQLCompact.RecordReadToMv("Project_Profiles", "PlannedStart", datPlannedStart, "CurrentImage", ";", "Nullable (of Date)")
    mv = clsDL.MvField(mv, 1, ";")
    Return mv
End Function


''' <summary>
''' Return a particular field based on another field. In this case return Project_Profiles.PlannedStart based on Project_Profiles.BusinessNeed
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Shared Function PlannedStartByBusinessNeed(ByVal strBusinessNeed As String) As Nullable (of Date)
    Dim mv As String = SQLCompact.RecordReadToMv("Project_Profiles", "BusinessNeed", strBusinessNeed, "PlannedStart", ";", "String")
    mv = clsDL.MvField(mv, 1, ";")
    Return IIf((IsDate(mv) = True), CDate(mv), Nothing)
End Function


''' <summary>
''' Return a particular field based on another field. In this case return Project_Profiles.BusinessNeed based on Project_Profiles.PlannedStart
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Shared Function BusinessNeedByPlannedStart(ByVal datPlannedStart As Nullable (of Date)) As String
    Dim mv As String = SQLCompact.RecordReadToMv("Project_Profiles", "PlannedStart", datPlannedStart, "BusinessNeed", ";", "Nullable (of Date)")
    mv = clsDL.MvField(mv, 1, ";")
    Return mv
End Function


''' <summary>
''' Return a particular field based on another field. In this case return Project_Profiles.PlannedStart based on Project_Profiles.CurrentSituation
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Shared Function PlannedStartByCurrentSituation(ByVal strCurrentSituation As String) As Nullable (of Date)
    Dim mv As String = SQLCompact.RecordReadToMv("Project_Profiles", "CurrentSituation", strCurrentSituation, "PlannedStart", ";", "String")
    mv = clsDL.MvField(mv, 1, ";")
    Return IIf((IsDate(mv) = True), CDate(mv), Nothing)
End Function


''' <summary>
''' Return a particular field based on another field. In this case return Project_Profiles.CurrentSituation based on Project_Profiles.PlannedStart
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Shared Function CurrentSituationByPlannedStart(ByVal datPlannedStart As Nullable (of Date)) As String
    Dim mv As String = SQLCompact.RecordReadToMv("Project_Profiles", "PlannedStart", datPlannedStart, "CurrentSituation", ";", "Nullable (of Date)")
    mv = clsDL.MvField(mv, 1, ";")
    Return mv
End Function


''' <summary>
''' Return a particular field based on another field. In this case return Project_Profiles.PlannedStart based on Project_Profiles.Objectives
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Shared Function PlannedStartByObjectives(ByVal strObjectives As String) As Nullable (of Date)
    Dim mv As String = SQLCompact.RecordReadToMv("Project_Profiles", "Objectives", strObjectives, "PlannedStart", ";", "String")
    mv = clsDL.MvField(mv, 1, ";")
    Return IIf((IsDate(mv) = True), CDate(mv), Nothing)
End Function


''' <summary>
''' Return a particular field based on another field. In this case return Project_Profiles.Objectives based on Project_Profiles.PlannedStart
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Shared Function ObjectivesByPlannedStart(ByVal datPlannedStart As Nullable (of Date)) As String
    Dim mv As String = SQLCompact.RecordReadToMv("Project_Profiles", "PlannedStart", datPlannedStart, "Objectives", ";", "Nullable (of Date)")
    mv = clsDL.MvField(mv, 1, ";")
    Return mv
End Function


''' <summary>
''' Return a particular field based on another field. In this case return Project_Profiles.PlannedStart based on Project_Profiles.Description
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Shared Function PlannedStartByDescription(ByVal strDescription As String) As Nullable (of Date)
    Dim mv As String = SQLCompact.RecordReadToMv("Project_Profiles", "Description", strDescription, "PlannedStart", ";", "String")
    mv = clsDL.MvField(mv, 1, ";")
    Return IIf((IsDate(mv) = True), CDate(mv), Nothing)
End Function


''' <summary>
''' Return a particular field based on another field. In this case return Project_Profiles.Description based on Project_Profiles.PlannedStart
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Shared Function DescriptionByPlannedStart(ByVal datPlannedStart As Nullable (of Date)) As String
    Dim mv As String = SQLCompact.RecordReadToMv("Project_Profiles", "PlannedStart", datPlannedStart, "Description", ";", "Nullable (of Date)")
    mv = clsDL.MvField(mv, 1, ";")
    Return mv
End Function


''' <summary>
''' Return a particular field based on another field. In this case return Project_Profiles.PlannedStart based on Project_Profiles.Deliverables
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Shared Function PlannedStartByDeliverables(ByVal strDeliverables As String) As Nullable (of Date)
    Dim mv As String = SQLCompact.RecordReadToMv("Project_Profiles", "Deliverables", strDeliverables, "PlannedStart", ";", "String")
    mv = clsDL.MvField(mv, 1, ";")
    Return IIf((IsDate(mv) = True), CDate(mv), Nothing)
End Function


''' <summary>
''' Return a particular field based on another field. In this case return Project_Profiles.Deliverables based on Project_Profiles.PlannedStart
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Shared Function DeliverablesByPlannedStart(ByVal datPlannedStart As Nullable (of Date)) As String
    Dim mv As String = SQLCompact.RecordReadToMv("Project_Profiles", "PlannedStart", datPlannedStart, "Deliverables", ";", "Nullable (of Date)")
    mv = clsDL.MvField(mv, 1, ";")
    Return mv
End Function


''' <summary>
''' Return a particular field based on another field. In this case return Project_Profiles.PlannedStart based on Project_Profiles.GeneralComments
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Shared Function PlannedStartByGeneralComments(ByVal strGeneralComments As String) As Nullable (of Date)
    Dim mv As String = SQLCompact.RecordReadToMv("Project_Profiles", "GeneralComments", strGeneralComments, "PlannedStart", ";", "String")
    mv = clsDL.MvField(mv, 1, ";")
    Return IIf((IsDate(mv) = True), CDate(mv), Nothing)
End Function


''' <summary>
''' Return a particular field based on another field. In this case return Project_Profiles.GeneralComments based on Project_Profiles.PlannedStart
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Shared Function GeneralCommentsByPlannedStart(ByVal datPlannedStart As Nullable (of Date)) As String
    Dim mv As String = SQLCompact.RecordReadToMv("Project_Profiles", "PlannedStart", datPlannedStart, "GeneralComments", ";", "Nullable (of Date)")
    mv = clsDL.MvField(mv, 1, ";")
    Return mv
End Function


''' <summary>
''' Return a particular field based on another field. In this case return Project_Profiles.PlannedEnd based on Project_Profiles.PlannedEnd
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Shared Function PlannedEndByPlannedEnd(ByVal datPlannedEnd As Nullable (of Date)) As Nullable (of Date)
    Dim mv As String = SQLCompact.RecordReadToMv("Project_Profiles", "PlannedEnd", datPlannedEnd, "PlannedEnd", ";", "Nullable (of Date)")
    mv = clsDL.MvField(mv, 1, ";")
    Return IIf((IsDate(mv) = True), CDate(mv), Nothing)
End Function


''' <summary>
''' Return a particular field based on another field. In this case return Project_Profiles.PlannedEnd based on Project_Profiles.CurrentImage
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Shared Function PlannedEndByCurrentImage(ByVal strCurrentImage As String) As Nullable (of Date)
    Dim mv As String = SQLCompact.RecordReadToMv("Project_Profiles", "CurrentImage", strCurrentImage, "PlannedEnd", ";", "String")
    mv = clsDL.MvField(mv, 1, ";")
    Return IIf((IsDate(mv) = True), CDate(mv), Nothing)
End Function


''' <summary>
''' Return a particular field based on another field. In this case return Project_Profiles.CurrentImage based on Project_Profiles.PlannedEnd
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Shared Function CurrentImageByPlannedEnd(ByVal datPlannedEnd As Nullable (of Date)) As String
    Dim mv As String = SQLCompact.RecordReadToMv("Project_Profiles", "PlannedEnd", datPlannedEnd, "CurrentImage", ";", "Nullable (of Date)")
    mv = clsDL.MvField(mv, 1, ";")
    Return mv
End Function


''' <summary>
''' Return a particular field based on another field. In this case return Project_Profiles.PlannedEnd based on Project_Profiles.BusinessNeed
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Shared Function PlannedEndByBusinessNeed(ByVal strBusinessNeed As String) As Nullable (of Date)
    Dim mv As String = SQLCompact.RecordReadToMv("Project_Profiles", "BusinessNeed", strBusinessNeed, "PlannedEnd", ";", "String")
    mv = clsDL.MvField(mv, 1, ";")
    Return IIf((IsDate(mv) = True), CDate(mv), Nothing)
End Function


''' <summary>
''' Return a particular field based on another field. In this case return Project_Profiles.BusinessNeed based on Project_Profiles.PlannedEnd
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Shared Function BusinessNeedByPlannedEnd(ByVal datPlannedEnd As Nullable (of Date)) As String
    Dim mv As String = SQLCompact.RecordReadToMv("Project_Profiles", "PlannedEnd", datPlannedEnd, "BusinessNeed", ";", "Nullable (of Date)")
    mv = clsDL.MvField(mv, 1, ";")
    Return mv
End Function


''' <summary>
''' Return a particular field based on another field. In this case return Project_Profiles.PlannedEnd based on Project_Profiles.CurrentSituation
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Shared Function PlannedEndByCurrentSituation(ByVal strCurrentSituation As String) As Nullable (of Date)
    Dim mv As String = SQLCompact.RecordReadToMv("Project_Profiles", "CurrentSituation", strCurrentSituation, "PlannedEnd", ";", "String")
    mv = clsDL.MvField(mv, 1, ";")
    Return IIf((IsDate(mv) = True), CDate(mv), Nothing)
End Function


''' <summary>
''' Return a particular field based on another field. In this case return Project_Profiles.CurrentSituation based on Project_Profiles.PlannedEnd
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Shared Function CurrentSituationByPlannedEnd(ByVal datPlannedEnd As Nullable (of Date)) As String
    Dim mv As String = SQLCompact.RecordReadToMv("Project_Profiles", "PlannedEnd", datPlannedEnd, "CurrentSituation", ";", "Nullable (of Date)")
    mv = clsDL.MvField(mv, 1, ";")
    Return mv
End Function


''' <summary>
''' Return a particular field based on another field. In this case return Project_Profiles.PlannedEnd based on Project_Profiles.Objectives
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Shared Function PlannedEndByObjectives(ByVal strObjectives As String) As Nullable (of Date)
    Dim mv As String = SQLCompact.RecordReadToMv("Project_Profiles", "Objectives", strObjectives, "PlannedEnd", ";", "String")
    mv = clsDL.MvField(mv, 1, ";")
    Return IIf((IsDate(mv) = True), CDate(mv), Nothing)
End Function


''' <summary>
''' Return a particular field based on another field. In this case return Project_Profiles.Objectives based on Project_Profiles.PlannedEnd
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Shared Function ObjectivesByPlannedEnd(ByVal datPlannedEnd As Nullable (of Date)) As String
    Dim mv As String = SQLCompact.RecordReadToMv("Project_Profiles", "PlannedEnd", datPlannedEnd, "Objectives", ";", "Nullable (of Date)")
    mv = clsDL.MvField(mv, 1, ";")
    Return mv
End Function


''' <summary>
''' Return a particular field based on another field. In this case return Project_Profiles.PlannedEnd based on Project_Profiles.Description
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Shared Function PlannedEndByDescription(ByVal strDescription As String) As Nullable (of Date)
    Dim mv As String = SQLCompact.RecordReadToMv("Project_Profiles", "Description", strDescription, "PlannedEnd", ";", "String")
    mv = clsDL.MvField(mv, 1, ";")
    Return IIf((IsDate(mv) = True), CDate(mv), Nothing)
End Function


''' <summary>
''' Return a particular field based on another field. In this case return Project_Profiles.Description based on Project_Profiles.PlannedEnd
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Shared Function DescriptionByPlannedEnd(ByVal datPlannedEnd As Nullable (of Date)) As String
    Dim mv As String = SQLCompact.RecordReadToMv("Project_Profiles", "PlannedEnd", datPlannedEnd, "Description", ";", "Nullable (of Date)")
    mv = clsDL.MvField(mv, 1, ";")
    Return mv
End Function


''' <summary>
''' Return a particular field based on another field. In this case return Project_Profiles.PlannedEnd based on Project_Profiles.Deliverables
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Shared Function PlannedEndByDeliverables(ByVal strDeliverables As String) As Nullable (of Date)
    Dim mv As String = SQLCompact.RecordReadToMv("Project_Profiles", "Deliverables", strDeliverables, "PlannedEnd", ";", "String")
    mv = clsDL.MvField(mv, 1, ";")
    Return IIf((IsDate(mv) = True), CDate(mv), Nothing)
End Function


''' <summary>
''' Return a particular field based on another field. In this case return Project_Profiles.Deliverables based on Project_Profiles.PlannedEnd
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Shared Function DeliverablesByPlannedEnd(ByVal datPlannedEnd As Nullable (of Date)) As String
    Dim mv As String = SQLCompact.RecordReadToMv("Project_Profiles", "PlannedEnd", datPlannedEnd, "Deliverables", ";", "Nullable (of Date)")
    mv = clsDL.MvField(mv, 1, ";")
    Return mv
End Function


''' <summary>
''' Return a particular field based on another field. In this case return Project_Profiles.PlannedEnd based on Project_Profiles.GeneralComments
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Shared Function PlannedEndByGeneralComments(ByVal strGeneralComments As String) As Nullable (of Date)
    Dim mv As String = SQLCompact.RecordReadToMv("Project_Profiles", "GeneralComments", strGeneralComments, "PlannedEnd", ";", "String")
    mv = clsDL.MvField(mv, 1, ";")
    Return IIf((IsDate(mv) = True), CDate(mv), Nothing)
End Function


''' <summary>
''' Return a particular field based on another field. In this case return Project_Profiles.GeneralComments based on Project_Profiles.PlannedEnd
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Shared Function GeneralCommentsByPlannedEnd(ByVal datPlannedEnd As Nullable (of Date)) As String
    Dim mv As String = SQLCompact.RecordReadToMv("Project_Profiles", "PlannedEnd", datPlannedEnd, "GeneralComments", ";", "Nullable (of Date)")
    mv = clsDL.MvField(mv, 1, ";")
    Return mv
End Function


''' <summary>
''' Return a particular field based on another field. In this case return Project_Profiles.CurrentImage based on Project_Profiles.CurrentImage
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Shared Function CurrentImageByCurrentImage(ByVal strCurrentImage As String) As String
    Dim mv As String = SQLCompact.RecordReadToMv("Project_Profiles", "CurrentImage", strCurrentImage, "CurrentImage", ";", "String")
    mv = clsDL.MvField(mv, 1, ";")
    Return mv
End Function


''' <summary>
''' Return a particular field based on another field. In this case return Project_Profiles.CurrentImage based on Project_Profiles.BusinessNeed
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Shared Function CurrentImageByBusinessNeed(ByVal strBusinessNeed As String) As String
    Dim mv As String = SQLCompact.RecordReadToMv("Project_Profiles", "BusinessNeed", strBusinessNeed, "CurrentImage", ";", "String")
    mv = clsDL.MvField(mv, 1, ";")
    Return mv
End Function


''' <summary>
''' Return a particular field based on another field. In this case return Project_Profiles.BusinessNeed based on Project_Profiles.CurrentImage
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Shared Function BusinessNeedByCurrentImage(ByVal strCurrentImage As String) As String
    Dim mv As String = SQLCompact.RecordReadToMv("Project_Profiles", "CurrentImage", strCurrentImage, "BusinessNeed", ";", "String")
    mv = clsDL.MvField(mv, 1, ";")
    Return mv
End Function


''' <summary>
''' Return a particular field based on another field. In this case return Project_Profiles.CurrentImage based on Project_Profiles.CurrentSituation
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Shared Function CurrentImageByCurrentSituation(ByVal strCurrentSituation As String) As String
    Dim mv As String = SQLCompact.RecordReadToMv("Project_Profiles", "CurrentSituation", strCurrentSituation, "CurrentImage", ";", "String")
    mv = clsDL.MvField(mv, 1, ";")
    Return mv
End Function


''' <summary>
''' Return a particular field based on another field. In this case return Project_Profiles.CurrentSituation based on Project_Profiles.CurrentImage
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Shared Function CurrentSituationByCurrentImage(ByVal strCurrentImage As String) As String
    Dim mv As String = SQLCompact.RecordReadToMv("Project_Profiles", "CurrentImage", strCurrentImage, "CurrentSituation", ";", "String")
    mv = clsDL.MvField(mv, 1, ";")
    Return mv
End Function


''' <summary>
''' Return a particular field based on another field. In this case return Project_Profiles.CurrentImage based on Project_Profiles.Objectives
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Shared Function CurrentImageByObjectives(ByVal strObjectives As String) As String
    Dim mv As String = SQLCompact.RecordReadToMv("Project_Profiles", "Objectives", strObjectives, "CurrentImage", ";", "String")
    mv = clsDL.MvField(mv, 1, ";")
    Return mv
End Function


''' <summary>
''' Return a particular field based on another field. In this case return Project_Profiles.Objectives based on Project_Profiles.CurrentImage
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Shared Function ObjectivesByCurrentImage(ByVal strCurrentImage As String) As String
    Dim mv As String = SQLCompact.RecordReadToMv("Project_Profiles", "CurrentImage", strCurrentImage, "Objectives", ";", "String")
    mv = clsDL.MvField(mv, 1, ";")
    Return mv
End Function


''' <summary>
''' Return a particular field based on another field. In this case return Project_Profiles.CurrentImage based on Project_Profiles.Description
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Shared Function CurrentImageByDescription(ByVal strDescription As String) As String
    Dim mv As String = SQLCompact.RecordReadToMv("Project_Profiles", "Description", strDescription, "CurrentImage", ";", "String")
    mv = clsDL.MvField(mv, 1, ";")
    Return mv
End Function


''' <summary>
''' Return a particular field based on another field. In this case return Project_Profiles.Description based on Project_Profiles.CurrentImage
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Shared Function DescriptionByCurrentImage(ByVal strCurrentImage As String) As String
    Dim mv As String = SQLCompact.RecordReadToMv("Project_Profiles", "CurrentImage", strCurrentImage, "Description", ";", "String")
    mv = clsDL.MvField(mv, 1, ";")
    Return mv
End Function


''' <summary>
''' Return a particular field based on another field. In this case return Project_Profiles.CurrentImage based on Project_Profiles.Deliverables
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Shared Function CurrentImageByDeliverables(ByVal strDeliverables As String) As String
    Dim mv As String = SQLCompact.RecordReadToMv("Project_Profiles", "Deliverables", strDeliverables, "CurrentImage", ";", "String")
    mv = clsDL.MvField(mv, 1, ";")
    Return mv
End Function


''' <summary>
''' Return a particular field based on another field. In this case return Project_Profiles.Deliverables based on Project_Profiles.CurrentImage
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Shared Function DeliverablesByCurrentImage(ByVal strCurrentImage As String) As String
    Dim mv As String = SQLCompact.RecordReadToMv("Project_Profiles", "CurrentImage", strCurrentImage, "Deliverables", ";", "String")
    mv = clsDL.MvField(mv, 1, ";")
    Return mv
End Function


''' <summary>
''' Return a particular field based on another field. In this case return Project_Profiles.CurrentImage based on Project_Profiles.GeneralComments
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Shared Function CurrentImageByGeneralComments(ByVal strGeneralComments As String) As String
    Dim mv As String = SQLCompact.RecordReadToMv("Project_Profiles", "GeneralComments", strGeneralComments, "CurrentImage", ";", "String")
    mv = clsDL.MvField(mv, 1, ";")
    Return mv
End Function


''' <summary>
''' Return a particular field based on another field. In this case return Project_Profiles.GeneralComments based on Project_Profiles.CurrentImage
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Shared Function GeneralCommentsByCurrentImage(ByVal strCurrentImage As String) As String
    Dim mv As String = SQLCompact.RecordReadToMv("Project_Profiles", "CurrentImage", strCurrentImage, "GeneralComments", ";", "String")
    mv = clsDL.MvField(mv, 1, ";")
    Return mv
End Function


''' <summary>
''' Return a particular field based on another field. In this case return Project_Profiles.BusinessNeed based on Project_Profiles.BusinessNeed
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Shared Function BusinessNeedByBusinessNeed(ByVal strBusinessNeed As String) As String
    Dim mv As String = SQLCompact.RecordReadToMv("Project_Profiles", "BusinessNeed", strBusinessNeed, "BusinessNeed", ";", "String")
    mv = clsDL.MvField(mv, 1, ";")
    Return mv
End Function


''' <summary>
''' Return a particular field based on another field. In this case return Project_Profiles.BusinessNeed based on Project_Profiles.CurrentSituation
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Shared Function BusinessNeedByCurrentSituation(ByVal strCurrentSituation As String) As String
    Dim mv As String = SQLCompact.RecordReadToMv("Project_Profiles", "CurrentSituation", strCurrentSituation, "BusinessNeed", ";", "String")
    mv = clsDL.MvField(mv, 1, ";")
    Return mv
End Function


''' <summary>
''' Return a particular field based on another field. In this case return Project_Profiles.CurrentSituation based on Project_Profiles.BusinessNeed
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Shared Function CurrentSituationByBusinessNeed(ByVal strBusinessNeed As String) As String
    Dim mv As String = SQLCompact.RecordReadToMv("Project_Profiles", "BusinessNeed", strBusinessNeed, "CurrentSituation", ";", "String")
    mv = clsDL.MvField(mv, 1, ";")
    Return mv
End Function


''' <summary>
''' Return a particular field based on another field. In this case return Project_Profiles.BusinessNeed based on Project_Profiles.Objectives
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Shared Function BusinessNeedByObjectives(ByVal strObjectives As String) As String
    Dim mv As String = SQLCompact.RecordReadToMv("Project_Profiles", "Objectives", strObjectives, "BusinessNeed", ";", "String")
    mv = clsDL.MvField(mv, 1, ";")
    Return mv
End Function


''' <summary>
''' Return a particular field based on another field. In this case return Project_Profiles.Objectives based on Project_Profiles.BusinessNeed
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Shared Function ObjectivesByBusinessNeed(ByVal strBusinessNeed As String) As String
    Dim mv As String = SQLCompact.RecordReadToMv("Project_Profiles", "BusinessNeed", strBusinessNeed, "Objectives", ";", "String")
    mv = clsDL.MvField(mv, 1, ";")
    Return mv
End Function


''' <summary>
''' Return a particular field based on another field. In this case return Project_Profiles.BusinessNeed based on Project_Profiles.Description
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Shared Function BusinessNeedByDescription(ByVal strDescription As String) As String
    Dim mv As String = SQLCompact.RecordReadToMv("Project_Profiles", "Description", strDescription, "BusinessNeed", ";", "String")
    mv = clsDL.MvField(mv, 1, ";")
    Return mv
End Function


''' <summary>
''' Return a particular field based on another field. In this case return Project_Profiles.Description based on Project_Profiles.BusinessNeed
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Shared Function DescriptionByBusinessNeed(ByVal strBusinessNeed As String) As String
    Dim mv As String = SQLCompact.RecordReadToMv("Project_Profiles", "BusinessNeed", strBusinessNeed, "Description", ";", "String")
    mv = clsDL.MvField(mv, 1, ";")
    Return mv
End Function


''' <summary>
''' Return a particular field based on another field. In this case return Project_Profiles.BusinessNeed based on Project_Profiles.Deliverables
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Shared Function BusinessNeedByDeliverables(ByVal strDeliverables As String) As String
    Dim mv As String = SQLCompact.RecordReadToMv("Project_Profiles", "Deliverables", strDeliverables, "BusinessNeed", ";", "String")
    mv = clsDL.MvField(mv, 1, ";")
    Return mv
End Function


''' <summary>
''' Return a particular field based on another field. In this case return Project_Profiles.Deliverables based on Project_Profiles.BusinessNeed
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Shared Function DeliverablesByBusinessNeed(ByVal strBusinessNeed As String) As String
    Dim mv As String = SQLCompact.RecordReadToMv("Project_Profiles", "BusinessNeed", strBusinessNeed, "Deliverables", ";", "String")
    mv = clsDL.MvField(mv, 1, ";")
    Return mv
End Function


''' <summary>
''' Return a particular field based on another field. In this case return Project_Profiles.BusinessNeed based on Project_Profiles.GeneralComments
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Shared Function BusinessNeedByGeneralComments(ByVal strGeneralComments As String) As String
    Dim mv As String = SQLCompact.RecordReadToMv("Project_Profiles", "GeneralComments", strGeneralComments, "BusinessNeed", ";", "String")
    mv = clsDL.MvField(mv, 1, ";")
    Return mv
End Function


''' <summary>
''' Return a particular field based on another field. In this case return Project_Profiles.GeneralComments based on Project_Profiles.BusinessNeed
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Shared Function GeneralCommentsByBusinessNeed(ByVal strBusinessNeed As String) As String
    Dim mv As String = SQLCompact.RecordReadToMv("Project_Profiles", "BusinessNeed", strBusinessNeed, "GeneralComments", ";", "String")
    mv = clsDL.MvField(mv, 1, ";")
    Return mv
End Function


''' <summary>
''' Return a particular field based on another field. In this case return Project_Profiles.CurrentSituation based on Project_Profiles.CurrentSituation
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Shared Function CurrentSituationByCurrentSituation(ByVal strCurrentSituation As String) As String
    Dim mv As String = SQLCompact.RecordReadToMv("Project_Profiles", "CurrentSituation", strCurrentSituation, "CurrentSituation", ";", "String")
    mv = clsDL.MvField(mv, 1, ";")
    Return mv
End Function


''' <summary>
''' Return a particular field based on another field. In this case return Project_Profiles.CurrentSituation based on Project_Profiles.Objectives
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Shared Function CurrentSituationByObjectives(ByVal strObjectives As String) As String
    Dim mv As String = SQLCompact.RecordReadToMv("Project_Profiles", "Objectives", strObjectives, "CurrentSituation", ";", "String")
    mv = clsDL.MvField(mv, 1, ";")
    Return mv
End Function


''' <summary>
''' Return a particular field based on another field. In this case return Project_Profiles.Objectives based on Project_Profiles.CurrentSituation
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Shared Function ObjectivesByCurrentSituation(ByVal strCurrentSituation As String) As String
    Dim mv As String = SQLCompact.RecordReadToMv("Project_Profiles", "CurrentSituation", strCurrentSituation, "Objectives", ";", "String")
    mv = clsDL.MvField(mv, 1, ";")
    Return mv
End Function


''' <summary>
''' Return a particular field based on another field. In this case return Project_Profiles.CurrentSituation based on Project_Profiles.Description
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Shared Function CurrentSituationByDescription(ByVal strDescription As String) As String
    Dim mv As String = SQLCompact.RecordReadToMv("Project_Profiles", "Description", strDescription, "CurrentSituation", ";", "String")
    mv = clsDL.MvField(mv, 1, ";")
    Return mv
End Function


''' <summary>
''' Return a particular field based on another field. In this case return Project_Profiles.Description based on Project_Profiles.CurrentSituation
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Shared Function DescriptionByCurrentSituation(ByVal strCurrentSituation As String) As String
    Dim mv As String = SQLCompact.RecordReadToMv("Project_Profiles", "CurrentSituation", strCurrentSituation, "Description", ";", "String")
    mv = clsDL.MvField(mv, 1, ";")
    Return mv
End Function


''' <summary>
''' Return a particular field based on another field. In this case return Project_Profiles.CurrentSituation based on Project_Profiles.Deliverables
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Shared Function CurrentSituationByDeliverables(ByVal strDeliverables As String) As String
    Dim mv As String = SQLCompact.RecordReadToMv("Project_Profiles", "Deliverables", strDeliverables, "CurrentSituation", ";", "String")
    mv = clsDL.MvField(mv, 1, ";")
    Return mv
End Function


''' <summary>
''' Return a particular field based on another field. In this case return Project_Profiles.Deliverables based on Project_Profiles.CurrentSituation
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Shared Function DeliverablesByCurrentSituation(ByVal strCurrentSituation As String) As String
    Dim mv As String = SQLCompact.RecordReadToMv("Project_Profiles", "CurrentSituation", strCurrentSituation, "Deliverables", ";", "String")
    mv = clsDL.MvField(mv, 1, ";")
    Return mv
End Function


''' <summary>
''' Return a particular field based on another field. In this case return Project_Profiles.CurrentSituation based on Project_Profiles.GeneralComments
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Shared Function CurrentSituationByGeneralComments(ByVal strGeneralComments As String) As String
    Dim mv As String = SQLCompact.RecordReadToMv("Project_Profiles", "GeneralComments", strGeneralComments, "CurrentSituation", ";", "String")
    mv = clsDL.MvField(mv, 1, ";")
    Return mv
End Function


''' <summary>
''' Return a particular field based on another field. In this case return Project_Profiles.GeneralComments based on Project_Profiles.CurrentSituation
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Shared Function GeneralCommentsByCurrentSituation(ByVal strCurrentSituation As String) As String
    Dim mv As String = SQLCompact.RecordReadToMv("Project_Profiles", "CurrentSituation", strCurrentSituation, "GeneralComments", ";", "String")
    mv = clsDL.MvField(mv, 1, ";")
    Return mv
End Function


''' <summary>
''' Return a particular field based on another field. In this case return Project_Profiles.Objectives based on Project_Profiles.Objectives
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Shared Function ObjectivesByObjectives(ByVal strObjectives As String) As String
    Dim mv As String = SQLCompact.RecordReadToMv("Project_Profiles", "Objectives", strObjectives, "Objectives", ";", "String")
    mv = clsDL.MvField(mv, 1, ";")
    Return mv
End Function


''' <summary>
''' Return a particular field based on another field. In this case return Project_Profiles.Objectives based on Project_Profiles.Description
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Shared Function ObjectivesByDescription(ByVal strDescription As String) As String
    Dim mv As String = SQLCompact.RecordReadToMv("Project_Profiles", "Description", strDescription, "Objectives", ";", "String")
    mv = clsDL.MvField(mv, 1, ";")
    Return mv
End Function


''' <summary>
''' Return a particular field based on another field. In this case return Project_Profiles.Description based on Project_Profiles.Objectives
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Shared Function DescriptionByObjectives(ByVal strObjectives As String) As String
    Dim mv As String = SQLCompact.RecordReadToMv("Project_Profiles", "Objectives", strObjectives, "Description", ";", "String")
    mv = clsDL.MvField(mv, 1, ";")
    Return mv
End Function


''' <summary>
''' Return a particular field based on another field. In this case return Project_Profiles.Objectives based on Project_Profiles.Deliverables
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Shared Function ObjectivesByDeliverables(ByVal strDeliverables As String) As String
    Dim mv As String = SQLCompact.RecordReadToMv("Project_Profiles", "Deliverables", strDeliverables, "Objectives", ";", "String")
    mv = clsDL.MvField(mv, 1, ";")
    Return mv
End Function


''' <summary>
''' Return a particular field based on another field. In this case return Project_Profiles.Deliverables based on Project_Profiles.Objectives
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Shared Function DeliverablesByObjectives(ByVal strObjectives As String) As String
    Dim mv As String = SQLCompact.RecordReadToMv("Project_Profiles", "Objectives", strObjectives, "Deliverables", ";", "String")
    mv = clsDL.MvField(mv, 1, ";")
    Return mv
End Function


''' <summary>
''' Return a particular field based on another field. In this case return Project_Profiles.Objectives based on Project_Profiles.GeneralComments
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Shared Function ObjectivesByGeneralComments(ByVal strGeneralComments As String) As String
    Dim mv As String = SQLCompact.RecordReadToMv("Project_Profiles", "GeneralComments", strGeneralComments, "Objectives", ";", "String")
    mv = clsDL.MvField(mv, 1, ";")
    Return mv
End Function


''' <summary>
''' Return a particular field based on another field. In this case return Project_Profiles.GeneralComments based on Project_Profiles.Objectives
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Shared Function GeneralCommentsByObjectives(ByVal strObjectives As String) As String
    Dim mv As String = SQLCompact.RecordReadToMv("Project_Profiles", "Objectives", strObjectives, "GeneralComments", ";", "String")
    mv = clsDL.MvField(mv, 1, ";")
    Return mv
End Function


''' <summary>
''' Return a particular field based on another field. In this case return Project_Profiles.Description based on Project_Profiles.Description
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Shared Function DescriptionByDescription(ByVal strDescription As String) As String
    Dim mv As String = SQLCompact.RecordReadToMv("Project_Profiles", "Description", strDescription, "Description", ";", "String")
    mv = clsDL.MvField(mv, 1, ";")
    Return mv
End Function


''' <summary>
''' Return a particular field based on another field. In this case return Project_Profiles.Description based on Project_Profiles.Deliverables
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Shared Function DescriptionByDeliverables(ByVal strDeliverables As String) As String
    Dim mv As String = SQLCompact.RecordReadToMv("Project_Profiles", "Deliverables", strDeliverables, "Description", ";", "String")
    mv = clsDL.MvField(mv, 1, ";")
    Return mv
End Function


''' <summary>
''' Return a particular field based on another field. In this case return Project_Profiles.Deliverables based on Project_Profiles.Description
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Shared Function DeliverablesByDescription(ByVal strDescription As String) As String
    Dim mv As String = SQLCompact.RecordReadToMv("Project_Profiles", "Description", strDescription, "Deliverables", ";", "String")
    mv = clsDL.MvField(mv, 1, ";")
    Return mv
End Function


''' <summary>
''' Return a particular field based on another field. In this case return Project_Profiles.Description based on Project_Profiles.GeneralComments
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Shared Function DescriptionByGeneralComments(ByVal strGeneralComments As String) As String
    Dim mv As String = SQLCompact.RecordReadToMv("Project_Profiles", "GeneralComments", strGeneralComments, "Description", ";", "String")
    mv = clsDL.MvField(mv, 1, ";")
    Return mv
End Function


''' <summary>
''' Return a particular field based on another field. In this case return Project_Profiles.GeneralComments based on Project_Profiles.Description
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Shared Function GeneralCommentsByDescription(ByVal strDescription As String) As String
    Dim mv As String = SQLCompact.RecordReadToMv("Project_Profiles", "Description", strDescription, "GeneralComments", ";", "String")
    mv = clsDL.MvField(mv, 1, ";")
    Return mv
End Function


''' <summary>
''' Return a particular field based on another field. In this case return Project_Profiles.Deliverables based on Project_Profiles.Deliverables
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Shared Function DeliverablesByDeliverables(ByVal strDeliverables As String) As String
    Dim mv As String = SQLCompact.RecordReadToMv("Project_Profiles", "Deliverables", strDeliverables, "Deliverables", ";", "String")
    mv = clsDL.MvField(mv, 1, ";")
    Return mv
End Function


''' <summary>
''' Return a particular field based on another field. In this case return Project_Profiles.Deliverables based on Project_Profiles.GeneralComments
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Shared Function DeliverablesByGeneralComments(ByVal strGeneralComments As String) As String
    Dim mv As String = SQLCompact.RecordReadToMv("Project_Profiles", "GeneralComments", strGeneralComments, "Deliverables", ";", "String")
    mv = clsDL.MvField(mv, 1, ";")
    Return mv
End Function


''' <summary>
''' Return a particular field based on another field. In this case return Project_Profiles.GeneralComments based on Project_Profiles.Deliverables
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Shared Function GeneralCommentsByDeliverables(ByVal strDeliverables As String) As String
    Dim mv As String = SQLCompact.RecordReadToMv("Project_Profiles", "Deliverables", strDeliverables, "GeneralComments", ";", "String")
    mv = clsDL.MvField(mv, 1, ";")
    Return mv
End Function


''' <summary>
''' Return a particular field based on another field. In this case return Project_Profiles.GeneralComments based on Project_Profiles.GeneralComments
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Shared Function GeneralCommentsByGeneralComments(ByVal strGeneralComments As String) As String
    Dim mv As String = SQLCompact.RecordReadToMv("Project_Profiles", "GeneralComments", strGeneralComments, "GeneralComments", ";", "String")
    mv = clsDL.MvField(mv, 1, ";")
    Return mv
End Function


''' <summary>
''' Return the list of strings of a particular field. In this case Project_Profiles.ID
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
    Public Shared Function IDList(Optional bAddNone As Boolean = False, Optional bIsDate As Boolean = False, Optional FldDelim As String = ";") As List(Of String)
        Dim strs As List(Of String) = SQLCompact.TableDistinctList("Project_Profiles", "ID", "{0}", bAddNone, bIsDate, FldDelim)
        Return strs
    End Function

''' <summary>
''' Return the list of strings of a particular field. In this case Project_Profiles.ProjectName
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
    Public Shared Function ProjectNameList(Optional bAddNone As Boolean = False, Optional bIsDate As Boolean = False, Optional FldDelim As String = ";") As List(Of String)
        Dim strs As List(Of String) = SQLCompact.TableDistinctList("Project_Profiles", "ProjectName", "{0}", bAddNone, bIsDate, FldDelim)
        Return strs
    End Function

''' <summary>
''' Return the list of strings of a particular field. In this case Project_Profiles.ContactPersonName
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
    Public Shared Function ContactPersonNameList(Optional bAddNone As Boolean = False, Optional bIsDate As Boolean = False, Optional FldDelim As String = ";") As List(Of String)
        Dim strs As List(Of String) = SQLCompact.TableDistinctList("Project_Profiles", "ContactPersonName", "{0}", bAddNone, bIsDate, FldDelim)
        Return strs
    End Function

''' <summary>
''' Return the list of strings of a particular field. In this case Project_Profiles.PlannedStart
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
    Public Shared Function PlannedStartList(Optional bAddNone As Boolean = False, Optional bIsDate As Boolean = False, Optional FldDelim As String = ";") As List(Of String)
        Dim strs As List(Of String) = SQLCompact.TableDistinctList("Project_Profiles", "PlannedStart", "{0}", bAddNone, bIsDate, FldDelim)
        Return strs
    End Function

''' <summary>
''' Return the list of strings of a particular field. In this case Project_Profiles.PlannedEnd
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
    Public Shared Function PlannedEndList(Optional bAddNone As Boolean = False, Optional bIsDate As Boolean = False, Optional FldDelim As String = ";") As List(Of String)
        Dim strs As List(Of String) = SQLCompact.TableDistinctList("Project_Profiles", "PlannedEnd", "{0}", bAddNone, bIsDate, FldDelim)
        Return strs
    End Function

''' <summary>
''' Return the list of strings of a particular field. In this case Project_Profiles.CurrentImage
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
    Public Shared Function CurrentImageList(Optional bAddNone As Boolean = False, Optional bIsDate As Boolean = False, Optional FldDelim As String = ";") As List(Of String)
        Dim strs As List(Of String) = SQLCompact.TableDistinctList("Project_Profiles", "CurrentImage", "{0}", bAddNone, bIsDate, FldDelim)
        Return strs
    End Function

''' <summary>
''' Return the list of strings of a particular field. In this case Project_Profiles.BusinessNeed
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
    Public Shared Function BusinessNeedList(Optional bAddNone As Boolean = False, Optional bIsDate As Boolean = False, Optional FldDelim As String = ";") As List(Of String)
        Dim strs As List(Of String) = SQLCompact.TableDistinctList("Project_Profiles", "BusinessNeed", "{0}", bAddNone, bIsDate, FldDelim)
        Return strs
    End Function

''' <summary>
''' Return the list of strings of a particular field. In this case Project_Profiles.CurrentSituation
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
    Public Shared Function CurrentSituationList(Optional bAddNone As Boolean = False, Optional bIsDate As Boolean = False, Optional FldDelim As String = ";") As List(Of String)
        Dim strs As List(Of String) = SQLCompact.TableDistinctList("Project_Profiles", "CurrentSituation", "{0}", bAddNone, bIsDate, FldDelim)
        Return strs
    End Function

''' <summary>
''' Return the list of strings of a particular field. In this case Project_Profiles.Objectives
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
    Public Shared Function ObjectivesList(Optional bAddNone As Boolean = False, Optional bIsDate As Boolean = False, Optional FldDelim As String = ";") As List(Of String)
        Dim strs As List(Of String) = SQLCompact.TableDistinctList("Project_Profiles", "Objectives", "{0}", bAddNone, bIsDate, FldDelim)
        Return strs
    End Function

''' <summary>
''' Return the list of strings of a particular field. In this case Project_Profiles.Description
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
    Public Shared Function DescriptionList(Optional bAddNone As Boolean = False, Optional bIsDate As Boolean = False, Optional FldDelim As String = ";") As List(Of String)
        Dim strs As List(Of String) = SQLCompact.TableDistinctList("Project_Profiles", "Description", "{0}", bAddNone, bIsDate, FldDelim)
        Return strs
    End Function

''' <summary>
''' Return the list of strings of a particular field. In this case Project_Profiles.Deliverables
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
    Public Shared Function DeliverablesList(Optional bAddNone As Boolean = False, Optional bIsDate As Boolean = False, Optional FldDelim As String = ";") As List(Of String)
        Dim strs As List(Of String) = SQLCompact.TableDistinctList("Project_Profiles", "Deliverables", "{0}", bAddNone, bIsDate, FldDelim)
        Return strs
    End Function

''' <summary>
''' Return the list of strings of a particular field. In this case Project_Profiles.GeneralComments
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
    Public Shared Function GeneralCommentsList(Optional bAddNone As Boolean = False, Optional bIsDate As Boolean = False, Optional FldDelim As String = ";") As List(Of String)
        Dim strs As List(Of String) = SQLCompact.TableDistinctList("Project_Profiles", "GeneralComments", "{0}", bAddNone, bIsDate, FldDelim)
        Return strs
    End Function

''' <summary>
''' Return the total number of records in the table Project_Profiles
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Shared Function Count() As Integer
Dim nRecords As Integer = 0
Dim dt As DataTable = SQLCompact.OpenDataTable("select Count(ID) as Records from [Project_Profiles]")
For Each dr As DataRow In dt.Rows
nRecords = Val(dr("Records").ToString)
Next
Return nRecords
End Function


''' <summary>
''' Return the total number of records with a particular value in a field. In this case Project_Profiles.ID
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Shared Function CountByID(ByVal intID As Integer) As Integer
Dim sQry As String = "Select Count(ID) As Records from [Project_Profiles] where [ID] = " & intID
Dim dt As DataTable = SQLCompact.OpenDataTable(sQRY)
Dim nRecords as integer = 0
For Each dr As DataRow In dt.Rows
nRecords = Val(dr("Records").ToString)
Next
Return nRecords
End Function

''' <summary>
''' Return the total number of records with a particular value in a field. In this case Project_Profiles.ProjectName
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Shared Function CountByProjectName(ByVal strProjectName As String) As Integer
Dim sQry As String = "Select Count(ID) As Records from [Project_Profiles] where [ProjectName] = '" & strProjectName & "'"
Dim dt As DataTable = SQLCompact.OpenDataTable(sQRY)
Dim nRecords as integer = 0
For Each dr As DataRow In dt.Rows
nRecords = Val(dr("Records").ToString)
Next
Return nRecords
End Function

''' <summary>
''' Return the total number of records with a particular value in a field. In this case Project_Profiles.ContactPersonName
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Shared Function CountByContactPersonName(ByVal strContactPersonName As String) As Integer
Dim sQry As String = "Select Count(ID) As Records from [Project_Profiles] where [ContactPersonName] = '" & strContactPersonName & "'"
Dim dt As DataTable = SQLCompact.OpenDataTable(sQRY)
Dim nRecords as integer = 0
For Each dr As DataRow In dt.Rows
nRecords = Val(dr("Records").ToString)
Next
Return nRecords
End Function

''' <summary>
''' Return the total number of records with a particular value in a field. In this case Project_Profiles.PlannedStart
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Shared Function CountByPlannedStart(ByVal datPlannedStart As Nullable (of Date)) As Integer
Dim sQry As String = "Select Count(ID) As Records from [Project_Profiles] where [PlannedStart] = " & datPlannedStart
Dim dt As DataTable = SQLCompact.OpenDataTable(sQRY)
Dim nRecords as integer = 0
For Each dr As DataRow In dt.Rows
nRecords = Val(dr("Records").ToString)
Next
Return nRecords
End Function

''' <summary>
''' Return the total number of records with a particular value in a field. In this case Project_Profiles.PlannedEnd
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Shared Function CountByPlannedEnd(ByVal datPlannedEnd As Nullable (of Date)) As Integer
Dim sQry As String = "Select Count(ID) As Records from [Project_Profiles] where [PlannedEnd] = " & datPlannedEnd
Dim dt As DataTable = SQLCompact.OpenDataTable(sQRY)
Dim nRecords as integer = 0
For Each dr As DataRow In dt.Rows
nRecords = Val(dr("Records").ToString)
Next
Return nRecords
End Function

''' <summary>
''' Return the total number of records with a particular value in a field. In this case Project_Profiles.CurrentImage
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Shared Function CountByCurrentImage(ByVal strCurrentImage As String) As Integer
Dim sQry As String = "Select Count(ID) As Records from [Project_Profiles] where [CurrentImage] = '" & strCurrentImage & "'"
Dim dt As DataTable = SQLCompact.OpenDataTable(sQRY)
Dim nRecords as integer = 0
For Each dr As DataRow In dt.Rows
nRecords = Val(dr("Records").ToString)
Next
Return nRecords
End Function

''' <summary>
''' Return the total number of records with a particular value in a field. In this case Project_Profiles.BusinessNeed
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Shared Function CountByBusinessNeed(ByVal strBusinessNeed As String) As Integer
Dim sQry As String = "Select Count(ID) As Records from [Project_Profiles] where [BusinessNeed] = '" & strBusinessNeed & "'"
Dim dt As DataTable = SQLCompact.OpenDataTable(sQRY)
Dim nRecords as integer = 0
For Each dr As DataRow In dt.Rows
nRecords = Val(dr("Records").ToString)
Next
Return nRecords
End Function

''' <summary>
''' Return the total number of records with a particular value in a field. In this case Project_Profiles.CurrentSituation
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Shared Function CountByCurrentSituation(ByVal strCurrentSituation As String) As Integer
Dim sQry As String = "Select Count(ID) As Records from [Project_Profiles] where [CurrentSituation] = '" & strCurrentSituation & "'"
Dim dt As DataTable = SQLCompact.OpenDataTable(sQRY)
Dim nRecords as integer = 0
For Each dr As DataRow In dt.Rows
nRecords = Val(dr("Records").ToString)
Next
Return nRecords
End Function

''' <summary>
''' Return the total number of records with a particular value in a field. In this case Project_Profiles.Objectives
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Shared Function CountByObjectives(ByVal strObjectives As String) As Integer
Dim sQry As String = "Select Count(ID) As Records from [Project_Profiles] where [Objectives] = '" & strObjectives & "'"
Dim dt As DataTable = SQLCompact.OpenDataTable(sQRY)
Dim nRecords as integer = 0
For Each dr As DataRow In dt.Rows
nRecords = Val(dr("Records").ToString)
Next
Return nRecords
End Function

''' <summary>
''' Return the total number of records with a particular value in a field. In this case Project_Profiles.Description
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Shared Function CountByDescription(ByVal strDescription As String) As Integer
Dim sQry As String = "Select Count(ID) As Records from [Project_Profiles] where [Description] = '" & strDescription & "'"
Dim dt As DataTable = SQLCompact.OpenDataTable(sQRY)
Dim nRecords as integer = 0
For Each dr As DataRow In dt.Rows
nRecords = Val(dr("Records").ToString)
Next
Return nRecords
End Function

''' <summary>
''' Return the total number of records with a particular value in a field. In this case Project_Profiles.Deliverables
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Shared Function CountByDeliverables(ByVal strDeliverables As String) As Integer
Dim sQry As String = "Select Count(ID) As Records from [Project_Profiles] where [Deliverables] = '" & strDeliverables & "'"
Dim dt As DataTable = SQLCompact.OpenDataTable(sQRY)
Dim nRecords as integer = 0
For Each dr As DataRow In dt.Rows
nRecords = Val(dr("Records").ToString)
Next
Return nRecords
End Function

''' <summary>
''' Return the total number of records with a particular value in a field. In this case Project_Profiles.GeneralComments
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Shared Function CountByGeneralComments(ByVal strGeneralComments As String) As Integer
Dim sQry As String = "Select Count(ID) As Records from [Project_Profiles] where [GeneralComments] = '" & strGeneralComments & "'"
Dim dt As DataTable = SQLCompact.OpenDataTable(sQRY)
Dim nRecords as integer = 0
For Each dr As DataRow In dt.Rows
nRecords = Val(dr("Records").ToString)
Next
Return nRecords
End Function

''' <summary>
''' Return True or False if a particular Project_Profiles record exists.
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Shared Function Exists(ByVal intID as Integer) As Boolean
Dim flag As Boolean = SQLCompact.RecordExists("Project_Profiles", "ID", intID, "Long")
Return flag
End Function


''' <summary>
''' Return True or False if a particular Project_Profiles record exists based on ID
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Shared Function ExistsByID(ByVal intID As Integer) As Boolean
Dim flag As Boolean = SQLCompact.RecordExists("Project_Profiles", "ID", intID, "Integer")
Return flag
End Function

''' <summary>
''' Return True or False if a particular Project_Profiles record exists based on ProjectName
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Shared Function ExistsByProjectName(ByVal strProjectName As String) As Boolean
Dim flag As Boolean = SQLCompact.RecordExists("Project_Profiles", "ProjectName", strProjectName, "String")
Return flag
End Function

''' <summary>
''' Return True or False if a particular Project_Profiles record exists based on ContactPersonName
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Shared Function ExistsByContactPersonName(ByVal strContactPersonName As String) As Boolean
Dim flag As Boolean = SQLCompact.RecordExists("Project_Profiles", "ContactPersonName", strContactPersonName, "String")
Return flag
End Function

''' <summary>
''' Return True or False if a particular Project_Profiles record exists based on PlannedStart
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Shared Function ExistsByPlannedStart(ByVal datPlannedStart As Nullable (of Date)) As Boolean
Dim flag As Boolean = SQLCompact.RecordExists("Project_Profiles", "PlannedStart", datPlannedStart, "Nullable (of Date)")
Return flag
End Function

''' <summary>
''' Return True or False if a particular Project_Profiles record exists based on PlannedEnd
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Shared Function ExistsByPlannedEnd(ByVal datPlannedEnd As Nullable (of Date)) As Boolean
Dim flag As Boolean = SQLCompact.RecordExists("Project_Profiles", "PlannedEnd", datPlannedEnd, "Nullable (of Date)")
Return flag
End Function

''' <summary>
''' Return True or False if a particular Project_Profiles record exists based on CurrentImage
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Shared Function ExistsByCurrentImage(ByVal strCurrentImage As String) As Boolean
Dim flag As Boolean = SQLCompact.RecordExists("Project_Profiles", "CurrentImage", strCurrentImage, "String")
Return flag
End Function

''' <summary>
''' Return True or False if a particular Project_Profiles record exists based on BusinessNeed
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Shared Function ExistsByBusinessNeed(ByVal strBusinessNeed As String) As Boolean
Dim flag As Boolean = SQLCompact.RecordExists("Project_Profiles", "BusinessNeed", strBusinessNeed, "String")
Return flag
End Function

''' <summary>
''' Return True or False if a particular Project_Profiles record exists based on CurrentSituation
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Shared Function ExistsByCurrentSituation(ByVal strCurrentSituation As String) As Boolean
Dim flag As Boolean = SQLCompact.RecordExists("Project_Profiles", "CurrentSituation", strCurrentSituation, "String")
Return flag
End Function

''' <summary>
''' Return True or False if a particular Project_Profiles record exists based on Objectives
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Shared Function ExistsByObjectives(ByVal strObjectives As String) As Boolean
Dim flag As Boolean = SQLCompact.RecordExists("Project_Profiles", "Objectives", strObjectives, "String")
Return flag
End Function

''' <summary>
''' Return True or False if a particular Project_Profiles record exists based on Description
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Shared Function ExistsByDescription(ByVal strDescription As String) As Boolean
Dim flag As Boolean = SQLCompact.RecordExists("Project_Profiles", "Description", strDescription, "String")
Return flag
End Function

''' <summary>
''' Return True or False if a particular Project_Profiles record exists based on Deliverables
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Shared Function ExistsByDeliverables(ByVal strDeliverables As String) As Boolean
Dim flag As Boolean = SQLCompact.RecordExists("Project_Profiles", "Deliverables", strDeliverables, "String")
Return flag
End Function

''' <summary>
''' Return True or False if a particular Project_Profiles record exists based on GeneralComments
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Shared Function ExistsByGeneralComments(ByVal strGeneralComments As String) As Boolean
Dim flag As Boolean = SQLCompact.RecordExists("Project_Profiles", "GeneralComments", strGeneralComments, "String")
Return flag
End Function

''' <summary>
''' Read Method to read Project_Profiles record from the database using a primarykey.
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Sub Read(ByVal sID As String)
Try
Clear()
Dim nRead As New DataSet()
nRead = SQLCompact.RecordSeek("Project_Profiles", "ID", sID, "*", "Integer")
Dim xCount As Boolean = nRead.Tables(0).Rows.Count - 1 <> -1
If xCount Then
Dim xRow As DataRow = nRead.Tables(0).Rows(0)
ID = Val(xRow("ID").ToString)
ProjectName = xRow("ProjectName").ToString
ContactPersonName = xRow("ContactPersonName").ToString
PlannedStart = IIf((IsDate(xRow("PlannedStart").ToString) = True), CDate(xRow("PlannedStart").ToString), Nothing)
PlannedEnd = IIf((IsDate(xRow("PlannedEnd").ToString) = True), CDate(xRow("PlannedEnd").ToString), Nothing)
CurrentImage = xRow("CurrentImage").ToString
BusinessNeed = xRow("BusinessNeed").ToString
CurrentSituation = xRow("CurrentSituation").ToString
Objectives = xRow("Objectives").ToString
Description = xRow("Description").ToString
Deliverables = xRow("Deliverables").ToString
GeneralComments = xRow("GeneralComments").ToString
Me.IsNew = False
nRead.Dispose()
End If
Catch exc as Exception
Throw new Exception(exc.Message)
End Try
End Sub

''' <summary>
''' Save a Project_Profiles record to the database using a primary key. This uses a property get and FieldsToUpdate, DateFields to update the database.
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Sub Save()
Try
Dim strTable As String = "Project_Profiles"
Dim strPriKey As String = "ID"
Dim CommText As String = ""
Dim xCommand As New SqlCeCommand
If ID = -1 Then
ID = SQLCompact.TableMaxValue(strTable, strPriKey, "") + 1
IsNew = True
Else
IsNew = False
End If
If FieldsToUpdate = "*" Then
FieldsToUpdate = SQLCompact.Table_FieldNames(strTable, False, ",")
End If
FieldsToUpdate = clsDL.MvRemoveDuplicates(Me.FieldsToUpdate, ",")
Dim strParameters As String = clsDL.MvPrefixBy(FieldsToUpdate, "@", ",")
If IsNew Then
CommText = clsDL.BuildInsertCommand(strTable, FieldsToUpdate, ",")
Else
CommText = clsDL.BuildUpdateCommand(strTable, FieldsToUpdate, strPriKey, ",")
End If
xCommand = SQLCompact.OpenCommand(CommText)
Dim spFields() As String = Split(FieldsToUpdate, ",")
With xCommand
.Parameters.Clear()
For each strField As String In spFields
Dim datePos As Integer = clsDL.MvSearch(DateFields, strField, ",")
If datePos > 0 Then
Dim strValue as string = clsDL.PropertyGet(Me, strField).ToString
.Parameters.AddWithValue("@" & strField, IIf((IsDate(strValue) = True), CDate(strValue), DBNull.Value))
Else
.Parameters.AddWithValue("@" & strField, clsDL.PropertyGet(Me, strField))
End If
Next
.ExecuteNonQuery()
End With
SQLCompact.Connection.Close()
xCommand.Dispose()
Catch exc as Exception
Throw new Exception(exc.Message)
End Try
End Sub

''' <summary>
''' This method builds up an editable grid based on selected records. The grid has Save, Clone and Delete buttons
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Shared Sub ShowProject_Profiles(ByRef grdViews As FineUI.Grid, ByVal strFilter As String)
clsFineUI.Grid.Clear(grdViews, "", "")
clsFineUI.Grid.TableName = "Project_Profiles"
clsFineUI.Grid.DataKeyNames = ""
clsFineUI.Grid.PageSize = 50
clsFineUI.Grid.AllowPaging = True
clsFineUI.Grid.AllowSorting = True
clsFineUI.Grid.LoadMask = False
clsFineUI.Grid.Title = "Project_Profiles"
clsFineUI.Grid.ShowBorder = False
clsFineUI.Grid.ShowHeader = False
clsFineUI.Grid.EnableRowNumber = False
clsFineUI.Grid.AutoHeight = True
clsFineUI.Grid.AutoPostBack = False
clsFineUI.Grid.EnableCheckBoxSelect = True
clsFineUI.Grid.AutoWidth = True
clsFineUI.Grid.EnableAlternateRowColor = True
clsFineUI.Grid.EnableCollapse = False
clsFineUI.Grid.EnableMouseOverColor = True
clsFineUI.Grid.EnableMultiSelect = True
clsFineUI.Grid.EnableViewState = True
clsFineUI.Grid.EnableAjax = True
clsFineUI.Grid.ColumnLines = True
clsFineUI.Grid.ToolTipField = ""
clsFineUI.Grid.IsDatabasePaging = False
clsFineUI.Grid.ShowGridHeader = True
clsFineUI.Grid.EnableHeaderMenu = True
clsFineUI.Grid.EnableColumnHide = True
clsFineUI.Grid.AddTextBox("ID", "ID", "{0}", "", "50", FineUi.TextAlign.Left, False, False, True)
clsFineUI.Grid.AddTextBox("ProjectName", "Project Title", "{0}", "", "200", FineUi.TextAlign.Left, False, False, True)
clsFineUI.Grid.AddComboBox("ContactPersonName", "Project Leader", "{0}", "", "110", FineUi.TextAlign.Left, False, Nothing)
clsFineUI.Grid.AddTextBox("PlannedStart", "Start Date", "{0:dd/MM/yyyy}", "", "110", FineUi.TextAlign.Left, False, False, True)
clsFineUI.Grid.AddTextBox("PlannedEnd", "End Date", "{0:dd/MM/yyyy}", "", "110", FineUi.TextAlign.Left, False, False, True)
clsFineUI.Grid.AddTextBox("CurrentImage", "Current Image", "{0}", "", "110", FineUi.TextAlign.Left, False, False, True)
clsFineUI.Grid.AddTextBox("BusinessNeed", "Business Need", "{0}", "", "110", FineUi.TextAlign.Left, False, False, True)
clsFineUI.Grid.AddTextBox("CurrentSituation", "Current Situation", "{0}", "", "110", FineUi.TextAlign.Left, False, False, True)
clsFineUI.Grid.AddTextBox("Objectives", "Objectives", "{0}", "", "110", FineUi.TextAlign.Left, False, False, True)
clsFineUI.Grid.AddTextBox("Description", "Scope of Work", "{0}", "", "110", FineUi.TextAlign.Left, False, False, True)
clsFineUI.Grid.AddTextBox("Deliverables", "Deliverables", "{0}", "", "110", FineUi.TextAlign.Left, False, False, True)
clsFineUI.Grid.AddTextBox("GeneralComments", "General Comments", "{0}", "", "110", FineUi.TextAlign.Left, False, False, True)
clsFineUI.Grid.AddSave()
clsFineUI.Grid.AddClone()
clsFineUI.Grid.AddDelete()
If Len(strFilter) > 0 Then clsFineUI.Grid.Filter = strFilter
clsFineUI.Grid.OrderBy = ""
clsFineUI.Grid.BuildSelectCommand()
clsFineUI.Grid.UseSQLCompact = True
clsFineUI.Grid.Update(Nothing)
End Sub

''' <summary>
''' Builds a readonly grid based on selected records, this grid has Edit, Clone, Delete, Like and Comment buttons.
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Shared Sub ShowGrid(ByRef grdViews As FineUI.Grid, ByVal strFilter As String)
clsFineUI.Grid.Clear(grdViews, "", "")
clsFineUI.Grid.TableName = "Project_Profiles"
clsFineUI.Grid.DataKeyNames = ""
clsFineUI.Grid.PageSize = 50
clsFineUI.Grid.AllowPaging = True
clsFineUI.Grid.AllowSorting = True
clsFineUI.Grid.LoadMask = False
clsFineUI.Grid.Title = "Project_Profiles"
clsFineUI.Grid.ShowBorder = False
clsFineUI.Grid.ShowHeader = False
clsFineUI.Grid.EnableRowNumber = False
clsFineUI.Grid.AutoHeight = True
clsFineUI.Grid.AutoPostBack = False
clsFineUI.Grid.EnableCheckBoxSelect = True
clsFineUI.Grid.AutoWidth = True
clsFineUI.Grid.EnableAlternateRowColor = True
clsFineUI.Grid.EnableCollapse = False
clsFineUI.Grid.EnableMouseOverColor = True
clsFineUI.Grid.EnableMultiSelect = True
clsFineUI.Grid.EnableViewState = True
clsFineUI.Grid.EnableAjax = True
clsFineUI.Grid.ColumnLines = True
clsFineUI.Grid.ToolTipField = ""
clsFineUI.Grid.IsDatabasePaging = False
clsFineUI.Grid.ShowGridHeader = True
clsFineUI.Grid.EnableHeaderMenu = True
clsFineUI.Grid.EnableColumnHide = True
clsFineUI.Grid.AddColumn("ID", "ID", "{0}", "", "", False, "50", FineUi.TextAlign.Left, False)
clsFineUI.Grid.AddColumn("ProjectName", "Project Title", "{0}", "", "", True, "200", FineUi.TextAlign.Left, False)
clsFineUI.Grid.AddColumn("ContactPersonName", "Project Leader", "{0}", "", "", False, "110", FineUi.TextAlign.Left, False)
clsFineUI.Grid.AddColumn("PlannedStart", "Start Date", "{0:dd/MM/yyyy}", "", "", False, "110", FineUi.TextAlign.Left, False)
clsFineUI.Grid.AddColumn("PlannedEnd", "End Date", "{0:dd/MM/yyyy}", "", "", False, "110", FineUi.TextAlign.Left, False)
clsFineUI.Grid.AddColumn("CurrentImage", "Current Image", "{0}", "", "", False, "110", FineUi.TextAlign.Left, False)
clsFineUI.Grid.AddColumn("BusinessNeed", "Business Need", "{0}", "", "", False, "110", FineUi.TextAlign.Left, False)
clsFineUI.Grid.AddColumn("CurrentSituation", "Current Situation", "{0}", "", "", False, "110", FineUi.TextAlign.Left, False)
clsFineUI.Grid.AddColumn("Objectives", "Objectives", "{0}", "", "", False, "110", FineUi.TextAlign.Left, False)
clsFineUI.Grid.AddColumn("Description", "Scope of Work", "{0}", "", "", False, "110", FineUi.TextAlign.Left, False)
clsFineUI.Grid.AddColumn("Deliverables", "Deliverables", "{0}", "", "", False, "110", FineUi.TextAlign.Left, False)
clsFineUI.Grid.AddColumn("GeneralComments", "General Comments", "{0}", "", "", False, "110", FineUi.TextAlign.Left, False)
clsFineUI.Grid.AddEditCloneDelete()
clsFineUI.Grid.AddLikeComment()
If Len(strFilter) > 0 Then clsFineUI.Grid.Filter = strFilter
clsFineUI.Grid.OrderBy = ""
clsFineUI.Grid.BuildSelectCommand()
clsFineUI.Grid.UseSQLCompact = True
clsFineUI.Grid.Update(Nothing)
End Sub

''' <summary>
''' Import Project_Profiles records from a csv file.
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Shared Sub ImportFile(ByVal SourceFile As String, ByVal FileData As String)
Try
Dim spLines As String() = Strings.Split(FileData, vbCr & vbLf)
For each strLine As String In spLines
strLine = strLine.Trim
If Len(strLine) > 0 Then
Dim spLine As String() = Strings.Split(strLine, ",")
Dim clsNewProjectProfiles As New clsProjectProfiles
With clsNewProjectProfiles
.IsNew = True
. = -1
.Save
End With
End If
Next
Catch exc as exception
Throw new Exception(exc.message)
End Try
End Sub

''' <summary>
''' Define a blank Project_Profiles record and save it in a database. This method is useful for a grid like interface.
''' </summary>
''' <remarks>This code is automatically generated by SystemBuilder.Show.</remarks>
Public Sub Blank()
Dim clsNewProjectProfiles As New clsProjectProfiles
clsNewProjectProfiles.Clear()
clsNewProjectProfiles.IsNew = True
clsNewProjectProfiles. = -1
clsNewProjectProfiles.Save
clsNewProjectProfiles = Nothing
End Sub
End Class

